Dear guys . I'm finding l

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

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.[NOPARSE]

copy

Your Code Here[/NOPARSE]

=

copy

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.

[编程交流] Dear guys . I'm finding l

发表回复

精选推荐