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

77077

新人写的程序,求高手帮忙完善下
先上图在上源码.

2. (defun c:dxf-ma ( / )
   
3.     (setq INT (getint "\n选择组码: "))
   
4.     (if (setq en (entsel "\n选择源对象<退出>: ")
   
5.              ENT (entget (car en))
   
6.              typ (cdr (assoc 0 ENT))
   
7.              TMP (assoc INT ENT)
   
8.            )
   
9.   (progn
   
10.       (redraw (car en) 3)
    
11.       (princ "\n 选择目标: ")
    
12.      (setq ss (ssget (list (cons 0 typ))) I 0 n (sslength ss))
    
13.     (repeat  n
    
14.         (setq ENT (entget (ssname ss I)))
    
15.         (entmod (subst TMP (assoc INT ENT) ENT))
    
16.         (setq I (1+ I))
    
17.     )
    
18.       (redraw (car en) 4)
    
19.   )
    
20.     )
    
21.     (princ)
    
22. )

(defun c:dxf-ma ( / )<br />     (setq INT (getint "\n选择组码: "))<br />     (if (setq en (entsel "\n选择源对象<退出>: ")<br />              ENT (entget (car en))<br />              typ (cdr (assoc 0 ENT))<br />              TMP (assoc INT ENT)<br />            )<br />   (progn<br />       (redraw (car en) 3)<br />       (princ "\n 选择目标: ")<br />      (setq ss (ssget (list (cons 0 typ))) I 0 n (sslength ss))<br />     (repeat  n<br />         (setq ENT (entget (ssname ss I)))<br />         (entmod (subst TMP (assoc INT ENT) ENT))<br />         (setq I (1+ I))<br />     )<br />       (redraw (car en) 4)<br />   )<br />     )<br />     (princ)<br /> )

zzyong00

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

yoyoho

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

77077

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

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

zzyong00

不是高手，一点点粗浅的想法
(setq INT (getint "\n选择组码: "))；这里用对话框的形式，可以让用户选择如”图层“、”颜色“等
后面刷的时候，换成对应的组码，这样用户就看不到组码这个东西了