第一问答网»论坛 › 中问网 › 问答 › cad如何计算不同圆的数量(lisp) AutuCAD中四个不同直径 ...

cad如何计算不同圆的数量(lisp) AutuCAD中四个不同直径的圆，怎么用lisp计算出来

11 |

2 | 2012-3-21 08:29:55 | 显示全部楼层 |阅读模式

(defun c:cr()(princ "\n选择要进行统计的圆对象")(setq ss (ssget (list (cons 0 "CIRCLE"))))(setq pt (getpoint "\n选择输出基点:"))(setq si 0 tx 65 px (car pt) py (cadr pt) li '() lii 0)(setq os (getvar "osmode") om (getvar "cmdecho"))(command "osmode" 0 "osmode" 0 "_.ucs" "w")(repeat (sslength ss) (setq cs (ssname ss

使用道具举报