社区 › Auto Lisp › 单击“打断并创建间隙”

rcmob 发表于 2022-7-6 12:46:10

单击“打断并创建间隙”

大家好，让我们看看是否有人能解决这个问题。。。
 
我需要一个LISP例程，该例程允许我在一个对象（直线、圆等）上单击一次，它将打断该对象，并在两端之间创建一个单位的间隙。
 
基本上，它会打断对象，然后从选定点的任一侧修剪1/2个单位。
 
如何做到这一点？
 
rcmob公司

chelsea1307 发表于 2022-7-6 12:49:45

这可能会有所帮助
;; This lisp breaks a two lines which cross each other
(defun c:bc ()
(setq scl (getvar "dimscale" ))
(setq dis (* scl 0.052))
(if
(= "WASTE" name)
(setq dist (* dis 1.5))
(if
(= "DUCT" name)
(setq dist (* dis 1.5))
(if
(= "DUCT-RA" name)
(setq dist (* dis 1.5))
(setq dist (* dis 1.5))
)))
(setq lne (entsel "\nPick line to break:")) (terpri)
(setq pnt (getpoint "\nPick break point:" )) (terpri)
(setq pick (entget (car lne)))
(setq pt1 (cdr (assoc 10 pick)))
(setq pt2 (cdr (assoc 11 pick)))
(setq a (angle pt1 pt2))
(setq ang ( * a 57.3))
(setq bpt1 (polar pnt a dis))
(setq bpt2 (polar pnt (- a pi) dis))
(command "break" lne "f" bpt1 bpt2 )
)

Lee Mac 发表于 2022-7-6 12:54:10

请参见以下内容：
 
http://www.cadtutor.net/forum/showthread.php?t=38603
 
http://www.asmitools.com/Files/Lisps/Bri.html

alanjt 发表于 2022-7-6 12:56:52

“name”变量是什么？
 

chelsea1307 发表于 2022-7-6 12:59:41

老实说，我不太确定，我没有写这一个，不确定是谁写的，在我们公司的标准，没有名字，因为谁写的。看起来它与中断的大小有关，这取决于它所在的层，但我在未列出的层上使用了它，效果很好

alanjt 发表于 2022-7-6 13:03:26

它不检查层和名称，检查第一件事是否执行。真奇怪。如果您键入，将返回什么！名称

chelsea1307 发表于 2022-7-6 13:07:53

当我尝试时，我得到零

rcmob 发表于 2022-7-6 13:08:33

您好，感谢您的代码，但是我正在寻找一个lisp，它打断了一条线，并在我单击的地方创建了一个间隙，而不是在它穿过另一条线或类似的地方。
有什么建议吗？
 
rcmob公司

alanjt 发表于 2022-7-6 13:12:47

谁知道呢。哦，只是好奇。

alanjt 发表于 2022-7-6 13:14:57

你有没有试过切尔西的密码？

查看完整版本: 单击“打断并创建间隙”