有个小问题不会搞

QUAN2518

下面的红色部分因该怎么写

((defun c:sw()
     (prompt "\n<<框選欲放置到的圖圓:>>")
     (setq ss(ssget))
     (setq n 0 k 0)
     (setq list8 (itoa clayer))
     (repeat (sslength ss)
           (setq en(ssname ss n))
           (setq endata(entget en))
           (setq 8_list (assoc 8 endata))
           (setq new_8_list (cons 8 "当前层"))————————这里不知道怎么写提取了变量CLAYER不行啊
           (setq endata(subst new_8_list 8_list endata))
           (entmod endata)
           (setq k (1+ k))
           (setq n (1+ n))
           )
   (princ (strcat "\n共有< " (itoa k) " >個更新:" ))
   (prin1)
   )
(prompt "\n <<SW>>快速更新圖圓到當前層")
(prin1)

xgr

程序稍做修改，

(defun c:sw()
     (prompt "\n<<框選欲放置到的圖圓:>>")
     (setq ss(ssget))
     (setq n 0 k 0)
     (setq new_layer(getvar "clayer"))
     (setq new_8_list (cons 8 new_layer))
     (repeat (sslength ss)
           (setq en(ssname ss n))
           (setq endata(entget en))
           (setq 8_list (assoc 8 endata))
           (setq endata(subst new_8_list 8_list endata))
           (entmod endata)
           (setq k (1+ k))
           (setq n (1+ n))
           )
   (princ (strcat "\n共有< " (itoa k) " >個更新:" ))
   (prin1)
   )
(prompt "\n <<SW>>快速更新圖圓到當前層")
(print)

QUAN2518

谢谢上楼的回答。

 (setq new_8_list (cons 8 new_layer))放在repeat循环的外面

理论上程序运行是不是要快一些。

QUAN2518

还有一点想问下。

群码 8  正确的列表 不是要求在图层外面+“”《 “图层” 》

这样写的new_8_list 是不是也有“”号

xgr

1 对于不需要放在循环里的语句，当然是不要放入，理论上是要快的,快到你感觉不到的！

2 cons的用法：

    (setq new_layer "zj")

    (cons 8 new_layer)

返回(8 . "zj")

   （cons 8 "zj")

返回(8 . "zj")

两者传入的参数不同，写法不一样，返回的结果一样。