求助!!!

spring

哎，伤脑筋


我改成这样子就跟原来的一样了


只复制了一个到 PH_W 层上


我都快发疯了

无痕

用vla试试

BDYCAD

這樣行吧 (defun c:tttd ()
;;;_______________________________________________________
(setq plate '("PH_W" "PPS_W")) ;?? list
(setq plate_wc '("0" "1")) ;?展?据 list
(setq ss (ssget)) ;???元
(if ss ;如果 ss 不? nil ??行
(progn
(setq n 0)
(while (> (sslength ss) n) ;循??中的?元
(setq en (ssname ss n)) ;取得?元名?
(setq ed (entget en)) ;取得?元定??据的??表
(setq n@ 0)
(while (> (length plate) n@) ;循?表 plate
(setq lay (nth n@ plate)) ;取得其中一?
(setq lay_wc (nth n@ plate_wc))
(setq ed (subst (cons 8 lay) (assoc 8 ed) ed))
;更??元的??
(if (= (regapp "MY_TAG") NULL);會根據圖形保存. 不能用二次.
(regapp "MY_TAG"))
(setq exdata (list (list -3
(list "MY_TAG"
(cons 1000 "h")
(cons 1000 lay_wc)
)
)
)
)
(entmake (APPEND ed exdata)) ;建立?元)
(setq exdata nil)
(setq n@ (1+ n@))
)
(setq n (1+ n))
)
(setq plate nil)
(setq plate_wc nil)
)
)
(princ)
)

spring

这样子是可以，可是 (if (= (assoc -3 ed) nil)
(setq ed (append ed exdata))
(setq ed (subst exdata (assoc -3 ed) ed)) ;增加扩展数据
) 这样子为什么不行呢

BDYCAD

你的語法用錯啦. 我做好了. 你來檢測看看. 應沒有問題的. 代碼如下: 具體是這樣的. 你先的對象如以加有以注冊的邀展數就不做處理 . 我認為你要的也是這樣的. (defun c:TEST ()
(setq plate '("PH_W" "PPS_W"))
(setq plate_wc '("0" "1"))
(if (ssget)
(progn
(if (= (regapp "MY_TAG") NULL)(regapp "MY_TAG"))
(setq n 0)
(while (> (sslength ss) n)
(setq en (ssname ss n))
(setq ed (entget en))
(setq n@ 0)
(while (> (length plate) n@)
(if (= (assoc -3 (entget en '("MY_TAG"))) nil)
(PROGN
(setq lay (nth n@ plate))
(setq ed (subst (cons 8 lay) (assoc 8 ed) ed))
(setq lay_wc (nth n@ plate_wc))
(entmake (append ed (list (list -3(list "MY_TAG"(cons 1000 "h")(cons 1000 lay_wc))))))))
(setq n@ (1+ n@)))
(setq n (1+ n)))
(setq plate nil)
(setq plate_wc nil)))
(princ)) ;選線找有沒有擴展數.
;(assoc -3 (entget (CAR (ENTSEL)) '("MY_TAG")))

龙龙仔

2. ;;;*層複製*
3. ;;;By-spring
4. ;;;2004/04/05
5. ;;;_______________________________________________________
6. ;;;修改By 龍龍仔;;;你重覆引用en,使en有2份xdata故entmake至pps_w時失敗(defun C:H_COPY  ()
7. ;;;_______________________________________________________
8.    (setq PLATE '("PH_W" "PPS_W"))  ;圖層 list
9.    (setq PLATE_WC '("0" "1"))    ;擴展資料 list
10.    (setq SS (ssget))      ;選擇圖元
11.    (if SS        ;如果 ss 不為 nil 則執行
12.        (progn
13.            (setq N 0)
14.            (while (> (sslength SS) N)  ;迴圈選中的圖元
15.   (setq EN (ssname SS N))    ;取得圖元稱
16.   (setq N@ 0)
17.   (while (> (length PLATE) N@)  ;迴圈表 plate
18.      (command "_.copy" EN "" "0,0" "@");原地copy----
19.      (setq ED (entget (entlast)));------------------
20.      (setq LAY (nth N@ PLATE))  ;取得其中一個
21.      (setq ED (subst (cons 8 LAY) (assoc 8 ED) ED))
22.           ;更該圖元的圖層
23.      (setq LAY_WC (nth N@ PLATE_WC)) ;取得其中一個擴展資料
24.      (if (not (tblsearch "appid" "MY_TAG"));------------
25.           ;檢查應用名稱是否已經註冊
26.          (regapp "MY_TAG")    ;如果沒有則註冊
27.      )
28.      (setq  EXDATA (list (list -3
29.              (list "MY_TAG"
30.            (cons 1000 "h")
31.            (cons 1000 LAY_WC)
32.              )
33.                )
34.                  )
35.      )
36.      (setq ED (append ED EXDATA))  ;增加擴展資料
37.      (entmod ED)      ;修改圖元--------------
38.      (setq EXDATA NIL)
39.      (setq N@ (1+ N@))
40.   )
41.   (setq N (1+ N))
42.            )
43.            (setq PLATE NIL)
44.            (setq PLATE_WC NIL)
45.        )
46.    )
47.    (princ)
48. )

;;;*層複製* ;;;By-spring ;;;2004/04/05 ;;;_______________________________________________________ ;;;修改By 龍龍仔;;;你重覆引用en,使en有2份xdata故entmake至pps_w時失敗(defun C:H_COPY  () ;;;_______________________________________________________    (setq PLATE '("PH_W" "PPS_W"))  ;圖層 list    (setq PLATE_WC '("0" "1"))    ;擴展資料 list    (setq SS (ssget))      ;選擇圖元    (if SS        ;如果 ss 不為 nil 則執行        (progn            (setq N 0)            (while (> (sslength SS) N)  ;迴圈選中的圖元   (setq EN (ssname SS N))    ;取得圖元稱   (setq N@ 0)   (while (> (length PLATE) N@)  ;迴圈表 plate      (command "_.copy" EN "" "0,0" "@");原地copy----      (setq ED (entget (entlast)));------------------      (setq LAY (nth N@ PLATE))  ;取得其中一個      (setq ED (subst (cons 8 LAY) (assoc 8 ED) ED))           ;更該圖元的圖層      (setq LAY_WC (nth N@ PLATE_WC)) ;取得其中一個擴展資料      (if (not (tblsearch "appid" "MY_TAG"));------------           ;檢查應用名稱是否已經註冊          (regapp "MY_TAG")    ;如果沒有則註冊      )      (setq  EXDATA (list (list -3              (list "MY_TAG"            (cons 1000 "h")            (cons 1000 LAY_WC)              )                )                  )      )      (setq ED (append ED EXDATA))  ;增加擴展資料      (entmod ED)      ;修改圖元--------------      (setq EXDATA NIL)      (setq N@ (1+ N@))   )   (setq N (1+ N))            )            (setq PLATE NIL)            (setq PLATE_WC NIL)        )    )    (princ) )