nest1291 发表于 2022-7-5 15:03:07

Dear guys . I'm finding l

I have a question. dear.
like pic.
would provide like this lisp .

nest1291 发表于 2022-7-5 15:31:02

==== I have this lisp now. ======

(defun C:BB(/ ss sno pt1 pt2 no x)      (princ " = BREAK2P")      (setq ss (ssget))      (setq sno (sslength ss))      (setq pt1 (getpoint "\n>>> First Point : "))      (setq pt2 (getpoint pt1 "\n>>> Second Point : "))      (setq no 0)      (repeat sno         (setq x (ssname ss no))         (command "break" x pt1 pt2)         (setq no (1+ no))      )(prin1))

SLW210 发表于 2022-7-5 15:40:02

Please read the Code Posting Guidelines and have your Code to be included in Code Tags.
Your Code Here =
Your Code Here

Roy_043 发表于 2022-7-5 15:57:53

Try BreakObjects22.LSP by CAB @ theswamp.org
Topic:
https://www.theswamp.org/index.php?topic=10370.0
Download link:
https://www.theswamp.org/index.php?topic=10370.msg586841#msg586841

nest1291 发表于 2022-7-5 16:12:12

thank you. I was changed. thank you.
页: [1]
查看完整版本: Dear guys . I'm finding l