while

spring · 发表于 2002-9-23 23:33:00

這是一個層複製程序,如果我想多重复制該怎么辦.

陈伯雄 · 发表于 2002-9-26 08:26:00

spring · 发表于 2002-9-23 23:33:00

spring · 发表于 2002-9-23 23:35:00

spring · 发表于 2002-9-25 22:23:00

spring · 发表于 2002-10-2 21:48:00

(Defun C

co()
(Setvar"Cmdecho" 0)
(setq ss(ssget))
(setq ss1(ssget "p"))
(setq LAY (getstring "\n请输入层名: "))
(command "copy" ss "" "0,0" "0,0")
(command "change" SS1 "" "_p" "_la" LAY "")
(princ)
)
我的意思是说，我想要让程序跟“COPY”命令一样当输入“M”时程序会继续运行下去，直到按“ENTER”键才结束命令。

陈伯雄 · 发表于 2002-10-3 08:39:00

龙龙仔 · 发表于 2002-10-3 11:06:00

(defun C

CO (/ HOLDECHO HOLDOSMODE KEY LAY)
  (defun TEST (/ SS SS1)
(if (= KEY "M")
   (setq LAY (getstring "\n請輸入層名 / <ENTER結束命令>: "))
   (setq LAY (getstring "\n請輸入層名: "))
)
(if (and (/= "" LAY) (tblsearch "LAYER" LAY))
   (progn
(setq SS (ssget))
(setq SS1 (ssget "p"))
(command "_.copy" SS "" "0,0" "0,0")
(command "_.change" SS1 "" "_p" "_la" LAY "")
   )
   (if (and (/= "" LAY) (= NIL (tblsearch "LAYER" LAY)))
(alert (strcat "沒有 \"" LAY "\" 這個圖層!!!"))
   )
)
  )
  (setq HOLDECHO (getvar "cmdecho"))
  (setq HOLDOSMODE (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq KEY (strcase (getstring "\n多重<M>: ")))
  (if (= KEY "")
(TEST)
(while (and (= KEY "M") (/= LAY ""))
   (TEST)
)
  )
  (setvar "osmode" HOLDOSMODE)
  (setvar "cmdecho" HOLDECHO)
  (princ)
)

spring · 发表于 2002-10-6 00:57:00

spring · 发表于 2002-10-11 23:40:00

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

while

不知道您要问什么...

附件

附件

本帖子中包含更多资源

怎麼沒人回答我的問題呢

不好意思，可能是我没说清楚

(InitGet)+(GetKWord)+(If)

試試看!!

謝謝,和我的要求差不多

多謝龍大蝦的幫助,後來我改了一點

本帖子中包含更多资源