77077 发表于 2014-9-1 21:41:37

这把刷子很好玩,专门刷DXF

新人写的程序,求高手帮忙完善下
先上图在上源码.
(defun c:dxf-ma ( / )
    (setq INT (getint "\n选择组码: "))
    (if (setq en (entsel "\n选择源对象<退出>: ")
             ENT (entget (car en))
             typ (cdr (assoc 0 ENT))
             TMP (assoc INT ENT)
         )
(progn
      (redraw (car en) 3)
      (princ "\n 选择目标: ")
   (setq ss (ssget (list (cons 0 typ))) I 0 n (sslength ss))
    (repeatn
      (setq ENT (entget (ssname ss I)))
      (entmod (subst TMP (assoc INT ENT) ENT))
      (setq I (1+ I))
    )
      (redraw (car en) 4)
)
    )
    (princ)
)

zzyong00 发表于 2014-9-1 23:35:19

普通用户根本用不了，他们不知道什么是组码

yoyoho 发表于 2014-9-2 06:25:53

感谢 77077 分享程序!
真的很不错喔!

77077 发表于 2014-9-2 09:39:59

zzyong00 发表于 2014-9-1 23:35 static/image/common/back.gif
普通用户根本用不了，他们不知道什么是组码

没错没错，所以才想请高手帮忙改进啊。

zzyong00 发表于 2014-9-2 09:49:15

不是高手，一点点粗浅的想法
(setq INT (getint "\n选择组码: "))；这里用对话框的形式，可以让用户选择如”图层“、”颜色“等
后面刷的时候，换成对应的组码，这样用户就看不到组码这个东西了
页: [1]
查看完整版本: 这把刷子很好玩,专门刷DXF