重圆消除.lsp;;;重圆消除 （相同圆心、相同半径）;;;========================================(defun C:TT (/ SS LST I EN ENL PT10 PT11 A N LST_NEW) (if (setq SS (ssget '((0 . "CIRCLE")))) (progn ;;组织成表 ((en pt10 pt11)...) (setq
2楼
学习下了~~~~楼主还是花了点心思的
回复
3楼
好像程序里面没有EN的函数呀，少一个函数运行不起来
回复
4楼
我发的 软件 已有此功能！
回复
