代码如下“ 问题: 1.能否将箭头设置为可以调整显示或不显示 2.能否设置文字和圆的大小 谢谢大家的帮助!! (defun
c:test
(/ h r sn p0 ceo teo leo p1 k p) (setq h (getvar
"dimscale") h (*
(if
(= h 0)
1 h)
(getvar
"dimtxt")) r h sn 1) (while
(setq p0 (getpoint
"\nPick Insert Point:")) (command
"circle" p0 r) (setq ceo (entget
(entlast))) (command
"text"
"j"
"m" p0 h 0
(itoa sn)
"") (setq teo (entget
(entlast))) (command
"leader" p0 (polar p0 (/ pi 4)
0.1) "" "" "n") (setq leo (entget
(entlast))) (setq p1 (cdr
(assoc
10 leo)) k 1) (while
(/= k 3) (setq p (grread T)) (setq k (car p) p (cadr p)) (setq ceo (subst
(cons
10 p)
(assoc
10 ceo) ceo)) (entmod ceo) (setq teo (subst
(cons
11 p)
(assoc
11 teo) teo)) (entmod teo) (setq p (polar p (angle p p1) r)) (setq leo (subst
(cons
10 p)
(assoc
10
(reverse leo)) leo)) (entmod leo) ) (setq sn (1+ sn)) ) (princ) )
|