如何能做到连续循环？

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

学习

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

[讨论] 如何能做到连续循环？

点评