编号问题
我是做静压预制管桩的，我们的画施工图时要求对各桩位（图上以圆表求）进行编号~<br/>有时很多，编起来费时费力~不知哪位有什么好的程序能对桩位进行自动编号~~<br/>谢谢~~(defun c:test (/ h sn r p0)
(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)
(command "text" "j" "m" p0 h 0 (itoa sn) "")
(setq sn (1+ sn))
)
(princ)
)
最好发个图纸，针对实际问题，好用程序解决,联系<a href="mailto:ljttjl@tom.com">ljttjl@tom.com</a> 一定不错,收藏
页:
[1]