Solved: QDim aligned

Anonymous · ‎12-12-2017

Hello forums,
I am attempting to figure out if it is possible to change the QDim command from linear to aligned. My overall goal is to be able to quickly do dimensions of the center of circles with DIMALI either in a LISP or series of commands. I attached a picture of what I hope is possible to automate. Any help would be appreciated! Thanks in advanced.

ВeekeeCZ · ‎12-12-2017

Try this code. Not sure how it should be dimesioned if more than 3 circles are selected.

(defun c:DimCircle ( / lst ss i)

  (princ "\nSelect CIRCLES, more than one: ")
  (if (and (setq ss (ssget '((0 . "CIRCLE"))))
	   (or (> (sslength ss) 1)
	       (prompt "\nError: More than one circle required."))
	   )
    (progn
      (repeat (setq i (sslength ss))
	(setq lst (cons (cdr (assoc 10 (entget (ssname ss (setq i (1- i)))))) lst)))
      (if (> (length lst) 2) (setq lst (cons (last lst) lst)))
      (repeat (setq i (1- (length lst)))
	(command "_.DIMALIGNED" "_none" (nth i lst) "_none" (nth (setq i (1- i)) lst) "_none" (nth i lst)))))
  (princ)
)