yang686526

一次标注多个圆
www.dimcax.com
一次标注多个圆
(defun c:ddi()
(setq ocm (getvar "cmdecho") oos (getvar "osmode") opi (getvar "pickbox"))
(setvar "cmdecho" 0) (setvar "osmode" 0) (setvar "pickbox" 1)
(setq ss (ssget '((0 . "circle"))) sn (sslength ss) si 0)
(repeat sn
(progn
(setq se (entget (ssname ss si)) sr (cdr (assoc 40 se)) si (1+ si))
(setq cm (cdr (assoc -1 se)) cp (cdr (assoc 10 se)) )
(setq p1 (polar cp (/ pi 4) sr) p2 (polar cp (/ pi 4) (1+ sr)))
(command "_.dimdiameter" (list cm p1) p2)
)
)
(setvar "cmdecho" ocm) (setvar "osmode" oos) (setvar "pickbox" opi)
)
上面的是直径的
(defun c:dra()
(setq ocm (getvar "cmdecho") oos (getvar "osmode") opi (getvar "pickbox"))
(setvar "cmdecho" 0) (setvar "osmode" 0) (setvar "pickbox" 1)
(setq ss (ssget '((0 . "circle"))) sn (sslength ss) si 0)
(repeat sn
(progn
(setq se (entget (ssname ss si)) sr (cdr (assoc 40 se)) si (1+ si))
(setq cm (cdr (assoc -1 se)) cp (cdr (assoc 10 se)) )
(setq p1 (polar cp (/ pi 4) sr) p2 (polar cp (/ pi 4) (1+ sr)))
(command "_.dimradius" (list cm p1) p2)
)
)
(setvar "cmdecho" ocm) (setvar "osmode" oos) (setvar "pickbox" opi)
)
上面的是半径的
欢迎大家跟我交流lisp相关问题

不好搞

不错，支持一下!
选择了就不要放弃！

支持

强烈支持.