CAD二次開發 將所選對象的標註樣式置為當前

(princ "\nSelect a dimension 選擇尺寸 :")

(if (and (setq s1

(ssname (ssget "_:S:E" '((0 . "DIMENSION"))) 0)

)

(setq ent (entget s1))

(= (cdr (assoc 0 ent)) "DIMENSION")

)

(progn

(setq dnm (cdr (assoc 3 ent)))

(command "-DIMSTYLE" "R" dnm)

)

)

(princ)

)