wgij007 发表于 2020-1-2 09:42:49

求一段代码，把角度标注用注释的方式表示

求一段代码，把角度标注用注释的方式表示,谢谢!


start4444 发表于 2020-1-2 09:42:50

(defun c:tt5 (/ ang p)
        (command "DIMANGULAR" pause pause pause)
        (setq p (getvar"lastpoint") ang (entlast))
        (command "LEADER" "non" (inters (cdr (assoc 15 (entget ang))) (cdr (assoc 10 (entget ang))) (cdr (assoc 13 (entget ang))) (cdr (assoc 14 (entget ang))) nil) "non" p ""(strcat (rtos (* (cdr (assoc 42 (entget ang))) (/ 180 pi)) 2 2) "°") "" "ERASE" ang "")
        (princ)
)

wgij007 发表于 2020-1-3 07:47:54

start4444 发表于 2020-1-2 09:42
(defun c:tt5 (/ ang p)
        (command "DIMANGULAR" pause pause pause)
        (setq p (getvar"lastpoint") ang...

感谢:lol:lol:lol
页: [1]
查看完整版本: 求一段代码，把角度标注用注释的方式表示