单击“打断并创建间隙”

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

大家好，让我们看看是否有人能解决这个问题。。。

我需要一个LISP例程，该例程允许我在一个对象（直线、圆等）上单击一次，它将打断该对象，并在两端之间创建一个单位的间隙。

基本上，它会打断对象，然后从选定点的任一侧修剪1/2个单位。

如何做到这一点？

rcmob公司

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

这可能会有所帮助

copy

;; 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 )
)