请问这个代码想增加一个线型的筛选改怎么加呀
本帖最后由 初学者123 于 2017-11-10 16:50 编辑[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif;; tt(圆替换成块)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(defun c:tt ()
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(princ "\n根据圆直径替换成块: ")
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(if (setq ss (ssget '((0 . "circle"))))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (progn
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setq i -1
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif ss1 (ssadd)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (while (setq s1 (ssname ss (setq i (1+ i))))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (setq ent (entget s1)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif pt(cdr (assoc 10 ent))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif rr(cdr (assoc 40 ent))
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (cond ((= rr 5.15)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (command "insert" "xm12" pt 1 1 0)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (ssadd s1 ss1)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif ((= rr 4.15)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (command "insert" "xm10" pt 1 1 0)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (ssadd s1 ss1)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif (command "erase" ss1 "")
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif )
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif(princ)
[*]http://bbs.mjtd.com/source/plugin/imc_colorcode/images/jssc_none.gif)
在论坛找到这个代码 想再增加一个线型的识别
ByLayer or ByBlock? Andyhon 发表于 2017-11-10 17:32
ByLayer or ByBlock?
也不一定是这两个线型就是想增加一个线型的筛选项
页:
[1]