請教

spring · 发表于 2002-10-30 22:31:00

(defun C

CO (/ SS CNT LAY)
(setq SS (ssget))
(setq CNT (sslength SS))
(princ (strcat "\n" (itoa CNT) " 找到."))
(while (/= lay "")
(setq LAY (getstring "\n請輸入層名 / <ENTER結束命令>: "))
(if (and (/= "" LAY) (tblsearch "LAYER" LAY))
   (progn
(setq ss1 (ssget "p"))
(command "_.copy" SS1 "" "0,0" "0,0")
(command "_.change" SS1 "" "_p" "_la" LAY "")
(prompt
   (strcat "\n" (itoa (sslength SS)) " 物件拷貝到圖層 " LAY)
)
   )
   (if (and (/= "" LAY) (= NIL (tblsearch "LAYER" LAY)))
(alert (strcat "沒有 \"" LAY "\" 這個圖層!!!"))
   )
)
  )
  (princ)
)
----------------------------------------------
;這個程序現在有一個缺點就是不能復制到已關閉的圖層(第一個可以,接著就不行了),還望高手多多指教

alin · 发表于 2002-11-1 07:31:00

it works well. I can copy an object to a locked layer as many times as I want.

alin · 发表于 2002-10-31 06:46:00

spring · 发表于 2002-10-31 21:30:00

spring · 发表于 2002-11-3 18:22:00

烛光 · 发表于 2002-11-10 21:20:00

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

請教

I Just simply load your routines in my AutoCAD, and

It can, in AutoCAD 2002

能不能說祥細點阿

能不能給點程序阿

怎么没人回答我呢？？？？？？