如何改造一下这个命令让它支持先选择物体，然后执行啊

tranney

;---------- 将所选对象设置为def层 线型不变
(defun c:def()
     (PRINC "\n---将所选对象设置为defpoints层，属性随层")(PRINC)
   (command "layer" "m" "defpoints" "c" "magenta" ""   "set" "0" "c" "7" "" "")
     (while(setq a (ssget":s"))
     (setvar "cmdecho" 0)
     (command "change" a "" "p" "c" "bylayer"  "la" "defpoints" "lw" "bylayer" "")
     )
     (command "clayer" "0")
     (princ "\n所选地方-->设置所选对象设置为defpoints层，属性随层!")
     (princ)
     )

lijiao

在用ssget函数前不要用command函数
或者把command函数改成vla-开头的函数

luowy

好像是，ssgetfirst，是将当前选择的实体加入选择集。注意返回值，第一个是肯定返回nil，第二个才是选择集

2. ;---------- 将所选对象设置为def层 线型不变
   
3. (defun c:def()
   
4.      (PRINC "\n---将所选对象设置为defpoints层，属性随层")(PRINC)
   
5.     (command "layer" "m" "defpoints" "c" "magenta" ""   "set" "0" "c" "7" "" "")
   
6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
7. ;;这里增加
   
8. (SETQ SS (cadr SSGETFIRST ));;好像是cadr取得列表第二个元素
   
9. ;;这里ss就是当前选择的部分，之后就好办咯，略去了
   
10. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
11. 
    
12.      (while(setq a (ssget":s"))
    
13.      (setvar "cmdecho" 0)
    
14.      (command "change" a "" "p" "c" "bylayer"  "la" "defpoints" "lw" "bylayer" "")
    
15.      )
    
16.      (command "clayer" "0")
    
17.      (princ "\n所选地方-->设置所选对象设置为defpoints层，属性随层!")
    
18.      (princ)
    
19.      )
    

;---------- 将所选对象设置为def层 线型不变<br /> (defun c:def() <br />      (PRINC "\n---将所选对象设置为defpoints层，属性随层")(PRINC)<br />     (command "layer" "m" "defpoints" "c" "magenta" ""   "set" "0" "c" "7" "" "")<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> ;;这里增加<br /> (SETQ SS (cadr SSGETFIRST ));;好像是cadr取得列表第二个元素<br /> ;;这里ss就是当前选择的部分，之后就好办咯，略去了<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> <br />      (while(setq a (ssget":s"))<br />      (setvar "cmdecho" 0)<br />      (command "change" a "" "p" "c" "bylayer"  "la" "defpoints" "lw" "bylayer" "")<br />      )<br />      (command "clayer" "0")<br />      (princ "\n所选地方-->设置所选对象设置为defpoints层，属性随层!")<br />      (princ)<br />      )<br />

tranney

试验无效，

luowy

tranney 发表于 2014-8-9 12:04
试验无效，

唉，你太懒了。。。

2. 
   
3. ;---------- 将所选对象设置为def层 线型不变
   
4. (defun c:222 ()
   
5.   (PRINC "\n---将所选对象设置为defpoints层，属性随层")
   
6.   (PRINC)
   
7. (setq oldLayerName (getvar "clayer"))
   
8.   (setvar "clayer" "defpoints")
   
9. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;这里增加
   
10.   (SETQ SS (cadr (SSGETFIRST)))
    
11.   ;;好像是cadr取得列表第二个元素;;这里ss就是当前选择的部分，之后就好办咯，略去了
    
12. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
13.   (while (setq a (ssget ":s"))
    
14.     (setvar "cmdecho" 0)
    
15.     (command "change"  a         ""           "p"             "c"
    
16.              "bylayer" "la"         "defpoints"             "lw"
    
17.              "bylayer" ""
    
18.             )
    
19.   )
    
20. ;; (command "clayer" "0")
    
21. (setvar "clayer" oldLayerName)
    
22.   (princ
    
23.     "\n所选地方-->设置所选对象设置为defpoints层，属性随层!"
    
24.   )
    
25.   (princ)
    
26. )
    

<br /> ;---------- 将所选对象设置为def层 线型不变<br /> (defun c:222 ()<br />   (PRINC "\n---将所选对象设置为defpoints层，属性随层")<br />   (PRINC)<br /> (setq oldLayerName (getvar "clayer"))<br />   (setvar "clayer" "defpoints")<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;这里增加<br />   (SETQ SS (cadr (SSGETFIRST)))<br />   ;;好像是cadr取得列表第二个元素;;这里ss就是当前选择的部分，之后就好办咯，略去了<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br />   (while (setq a (ssget ":s"))<br />     (setvar "cmdecho" 0)<br />     (command "change"  a         ""           "p"             "c"<br />              "bylayer" "la"         "defpoints"             "lw"<br />              "bylayer" ""<br />             )<br />   )<br /> ;; (command "clayer" "0")<br /> (setvar "clayer" oldLayerName)<br />   (princ<br />     "\n所选地方-->设置所选对象设置为defpoints层，属性随层!"<br />   )<br />   (princ)<br /> )<br />

luowy

要不，来学arx吧，比arx好多了。。。

tranney

还是不行啊，arx局限性太强了，cad每个版本都要重新编译，不像lsp那样通用性，r2000以上都可以用

ZZXXQQ

2. (defun c:def()
   
3. (setvar "cmdecho" 0)
   
4. (princ "\n---将所选对象设置为defpoints层，属性随层")
   
5. (setq ss (cadr (ssgetfirst)))
   
6. (command "layer" "m" "defpoints" "c" "magenta" ""   "set" "0" "c" "7" "" "")
   
7. (while (or ss (setq ss (ssget ":s")))
   
8.   (command "chprop" ss "" "c" "bylayer" "la" "defpoints" "lw" "bylayer" "")
   
9.         (setq ss nil)
   
10. )
    
11. (command "clayer" "0")
    
12. (setvar "CMDECHO" 1)
    
13. (princ "\n所选地方-->设置所选对象设置为defpoints层，属性随层!")
    
14. (princ)
    
15. )
    

(defun c:def() <br /> (setvar "cmdecho" 0)<br /> (princ "\n---将所选对象设置为defpoints层，属性随层")<br /> (setq ss (cadr (ssgetfirst)))<br /> (command "layer" "m" "defpoints" "c" "magenta" ""   "set" "0" "c" "7" "" "")<br /> (while (or ss (setq ss (ssget ":s")))<br />   (command "chprop" ss "" "c" "bylayer" "la" "defpoints" "lw" "bylayer" "")<br />         (setq ss nil)<br /> )<br /> (command "clayer" "0")<br /> (setvar "CMDECHO" 1)<br /> (princ "\n所选地方-->设置所选对象设置为defpoints层，属性随层!")<br /> (princ)<br /> )<br />

tranney

ZZXXQQ 发表于 2014-8-10 08:04

谢谢zzxxqq出手，不过还是有点问题，先选不行哦

edata

1. (defun c:def()
   
2. (setvar "cmdecho" 0)
   
3. (princ "\n---将所选对象设置为defpoints层，属性随层")
   
4. (setq ss (cadr (ssgetfirst)))
   
5. (command "layer" "m" "defpoints" "c" "magenta" ""   "set" "0" "c" "7" "" "")  
   
6. (while (or ss (setq ss (ssget ":s")))
   
7.   (command "chprop" ss "" "c" "bylayer" "la" "defpoints" "lw" "bylayer" "")
   
8.         (setq ss nil)
   
9. )
   
10. (command "clayer" "0")
    
11. (setvar "CMDECHO" 1)
    
12. (princ "\n所选地方-->设置所选对象设置为defpoints层，属性随层!")
    
13. (princ)
    
14. )

(defun c:def() <br /> (setvar "cmdecho" 0)<br /> (princ "\n---将所选对象设置为defpoints层，属性随层")<br /> (setq ss (cadr (ssgetfirst)))<br /> (command "layer" "m" "defpoints" "c" "magenta" ""   "set" "0" "c" "7" "" "")  <br /> (while (or ss (setq ss (ssget ":s")))<br />   (command "chprop" ss "" "c" "bylayer" "la" "defpoints" "lw" "bylayer" "")<br />         (setq ss nil)<br /> )<br /> (command "clayer" "0")<br /> (setvar "CMDECHO" 1)<br /> (princ "\n所选地方-->设置所选对象设置为defpoints层，属性随层!")<br /> (princ)<br /> )