[编程申请]：请高手帮忙写个lisp程序

yinfu66 · 发表于 2009-5-8 17:58:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请高手帮忙写个lisp程序，我想删除cad文件里的重复的块，附件里面有图形文件，块的名字为：AO,BO,CO,DO,EO,FO.附件的扩展名改为DWG就可以用cad打开了（附件图片另存一下，然后改扩展名）

zxq0220 · 发表于 2009-5-12 22:21:33

[php]
;删图中重复块晓东 zxq0220 2008.5.12
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq bkname (list "A0" "B0" "C0" "D0" "E0" "F0"))
(setq i 0)
(repeat (length bkname)
  (setq bname (nth i bkname) i (1+ i))
  (if (setq ss (ssget "X" (list (cons 0 bname))))
(if (> (sslength ss) 1) (progn
(setq ss (ssdel (ssname ss 0) ss))
(command ".erase" ss "")
))
  )
)
(princ)
)
[/php]

yinfu66 · 发表于 2009-5-13 17:25:34

我想要的是lisp程序呀

zxq0220 · 发表于 2009-5-13 22:18:46

二楼写的就是lisp程序呀！

xinr111 · 发表于 2009-5-21 16:36:39

他是小菜看不懂吧!

xyp1964 · 发表于 2009-5-22 14:23:44

[php](defun c:tt ()
  (foreach name '("A0" "B0" "C0" "D0" "E0" "F0" "DI")
(if (and (setq ss (ssget "X" (list '(0 . "INSERT") (cons 2 name))))
      (> (sslength ss) 1)
)
   (command ".erase" (ssdel (ssname ss 0) ss) "")
)
  )
  (princ)
)[/php]

luxywd5 · 发表于 2009-5-31 12:21:39

斑竹很尽责，学习

zqb05 · 发表于 2009-5-31 19:31:01

学习了

yinfu66 · 发表于 2009-6-2 15:15:45

加载后运行没有效果啊

nuoyafangzhou · 发表于 2009-6-13 11:21:15

学习了O(∩_∩)O~

账号		自动登录	找回密码
密码			立即注册

[编程申请]：请高手帮忙写个lisp程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子