寻找一个常规的地方
我想做的是单击实体（可以是多段线或我同时使用的线），并将文本放置在实体的角度。我不需要提示输入文本，因为我将对值进行硬编码，并为每个实体类型制作一个按钮。
现在，我的代码将文本放置在一个已经确定的角度。
这不适用于某些实体，如圆或多段线，因为它们没有角度特性。
;;----------------------------------------------------------------------;;
;; Match Angle of selection
(defun C:foo (/ s ss ent)
(if (and (setq s (car (entsel "\nSelect Entity for reference angle")))
(setq ss (ssget ":L"))
)
(foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
(entmod (subst (assoc 50 (entget s))
(assoc 50 (entget ent))
(entget ent)
)
)
)
)
(princ)
)
页:
[1]