高手请进！

yinheng · 发表于 2004-9-13 11:38:00

我每次要用打断于点的时候总要重复的点栏。用那个命令能快速使用这个功能？（回车重复命令是总是重复打断命令而不是打断于点命令。）多谢多谢！

龙龙仔 · 发表于 2004-9-13 12:26:00

(defun C:BPT (/ A A1 PT)
   (setq PT 1
A1 1
   )
   (while (not (or (= PT NIL) (= A1 NIL)))
   (PROMPT "\n选择打断物件: ")
   (setq A1 (entsel))
   (if (/= A1 NIL)
   (progn
   (setq A (cadr A1))
   (redraw (car A1) 3)
(setq PT (getpoint "\nBreak point: "))
(if (/= PT NIL)
   (command "_.BREAK" A "F" PT "@")
)
   )
   )
   )
   (princ)
)

yinheng · 发表于 2004-9-13 16:09:00

问题解决了万分感激。太高兴了！

高手请进！

发表回复

精选推荐