复制出来的对象如何再次获得

啵浪鼓 · 发表于 2009-10-11 23:26:00

在写一个旋转复制的命令,复制出来的对象如何让程序能获得呢.

我想过原理,可以让程序找到x与y的坐标全选再R移除p上次选择,可是由于ss边上如果有别的东西不在选择集里,如此框选会误选到不要的图元,行不通哇!

(defun c:rcc ()
(setvar "cmdecho" 0)
(command "undo" "be")
(setq os (getvar "osmode"))
(setq om (getvar "orthomode"))
(setvar "orthomode" 0)
(prompt "Copy and Rotate")
(setq ss (ssget))
(if (not(tblsearch "layer" "8"))
      (command "layer" "new" "8" "set" "8" "c" "8" "8" "lt" "hidden" "8" "")
)
(if ss
     (progn
        (setq dian (getpoint "\nPick Bese point"))
        (command "copy" ss "" dian dian)

        (command "rotate" ss "" dian pause)                                        ;这里的ss不是想要的对象,应将copy后的新图元进入选择集
        (command "chprop" ss "" "la" "8" "c" "bylayer" "lt" "bylayer" "")
      )
   )
)

phoenixdjq · 发表于 2009-10-12 08:26:00

entlast可以取得最后生成的对象

如果是多个对象，要用到循环了

liu_kunlun · 发表于 2009-10-12 08:59:00

(setq ss (ssadd) e (entlast))

<这里生成新的实体>

(while (setq e (entnext e))

(setq ss (ssadd e ss))

)

啵浪鼓 · 发表于 2009-10-12 13:04:00

明白了﹐非常感謝2位﹗

啵浪鼓 · 发表于 2009-10-13 00:02:00

哎,看是看明白了,可是程序老不对,下面的程序中ss1的选项一直是空白

(defun c:rcc ()
(setvar "cmdecho" 0)
(command "undo" "be")
(setq os (getvar "osmode"))
(setq om (getvar "orthomode"))
(setvar "orthomode" 0)
(prompt "Copy and Rotate")
(setq ss (ssget))
(if (not(tblsearch "layer" "8"))
      (command "layer" "new" "8" "set" "8" "c" "8" "8" "lt" "hidden" "8" "")
)
(if ss
     (progn
        (setq dian (getpoint "\nPick Bese point"))
        (command "copy" ss "" dian dian)

     (setq ss1 (ssadd) e (entlast))
     (while (setq e (entnext e))
       (setq ss1 (ssadd e ss1))

)

(command "rotate" ss "" dian pause)
(command "chprop" ss1 "" "la" "8" "c" "bylayer" "lt" "bylayer" "") ;;这里的ss1一直是空的

)
)
)

caoyin · 发表于 2009-10-13 10:01:00

;; [功能] 获取在图元 en 之后产生的图元的选择集
;; [参数] en----图元名
;; [返回] 选择集
;; [测试]1.(setq en (entlast))
;; 执行创建图元的命令，如 LINE,BOUNDARY
;; (setq ss (ttt en))
;; 2.(setq ss (ttt (car(entsel))))
(defun ttt (en / ss)
(if en
(progn
(setq ss (ssadd))
(while (setq en (entnext en))
(if (not (member (cdr (assoc 0 (entget en)))
'("ATTRIB" "VERTEX" "SEQEND") ;;;注意这个部分
)
)
(ssadd en ss)
)
)
(if (zerop (sslength ss)) (setq ss nil))
ss
)
(ssget "_x")
)
)

啵浪鼓 · 发表于 2009-10-13 23:34:00

哎,caoyin版主的程序不知道怎么连接上5楼的程序,高深的程序接受不了,只能慢慢来了!

龙龙仔 · 发表于 2009-10-14 08:00:00

(defun C:RCC (/ DIAN EN OM OS SS)
(setvar "cmdecho" 0)
(command "undo" "be")
(setq OS (getvar "osmode"))
(setq OM (getvar "orthomode"))
(setvar "orthomode" 0)
(prompt "Copy and Rotate")
(setq SS (ssget))
(if (not (tblsearch "layer" "8"))
    (command "_.layer" "new" "8" "set" "8" "c" "8" "8" "lt" "hidden" "8"
      "")
)
(if SS
    (progn
      (setq EN (entlast))
      (setq DIAN (getpoint "\nPick Bese point"))
      (command "_.copy" SS "" DIAN DIAN)
      (command "_.chprop"
        (TTT EN)
        ""
        "la"
        "8"
        "c"
        "bylayer"
        "lt"
        "bylayer"
        ""
      )
      (command "_.rotate" SS "" DIAN PAUSE)
      ;;這裡的ss1一直是空的
    )
)
)

啵浪鼓 · 发表于 2009-10-14 08:05:00

TTT是什么﹐不能執行呀

Select objects:
Pick Bese point; error: no function definition: TTT

龙龙仔 · 发表于 2009-10-14 08:13:00

TTT ??====>看6樓

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