xiao88gang 发表于 2021-9-18 09:18:06

如何能做到连续循环？

如何能做到添加一语句能连续循环的插入点？请高手指点，谢谢

(defun c:bv ()   
    (setvar "cmdecho" 0)
    (command ".-insert""*D:\\000\\22.dwg" pause "1"    "0")
          (WHILE(setq p1 (getpoint "\n插入点:"))
      (command "insert" a p1 "" ""))
   (princ)
   )

gaics 发表于 2021-9-18 16:31:28

(defun c:bv ()
(setvar "cmdecho" 0)
(WHILE (setq p1 (getpoint "\n插入点:"))
    (command ".-insert" "*D:\\000\\22.dwg" p1 "1" "1" "0")
)
(princ)
)

sjl_fyl 发表于 2024-10-22 21:28:43

{:1_1:}学习
页: [1]
查看完整版本: 如何能做到连续循环？