将多段线偏移成指定宽度的填充

cheefeel

求这样一个插件：将多段线偏移成指定宽度的填充



执行命令后，输入一个宽度值，选择目标线(多段线或直线)，
①若直接确定→则以目标线为中心生成指定宽度的填充(生成后移除填充边界和目标线)
②若指定方向→则按指定方向生成填充。

start4444

(defun c:tt5 (/ d l l1 l2 l3 obj obj1 pt);;偏移填充->删除边线和原对象
        (setvar "cmdecho" 0)(command "undo" "be")
        (setq d (getdist "\n指定偏移距离：") l (car (entsel "\n请选择对象:")) obj (vlax-ename->vla-object l) pt (getpoint"\n偏移点 或 [居中(空格)]:"))
        (if pt (progn (command "offset" d l "non" pt "") (setq obj1 (vlax-ename->vla-object (setq l1 (entlast))))) (progn (vla-Offset obj (* d 0.5))(setq obj1 (vlax-ename->vla-object (setq l1 (entlast))))   (vla-Offset obj (* d -0.5)) (vla-Delete obj) (setq obj (vlax-ename->vla-object (setq l (entlast))))))
        (entmake (list '(0 . "LINE") (cons 10 (vlax-curve-getEndPoint obj)) (cons 11 (vlax-curve-getEndPoint obj1)))) (setq l2 (entlast))
        (entmake (list '(0 . "LINE") (cons 10 (vlax-curve-getstartPoint obj)) (cons 11 (vlax-curve-getstartPoint obj1))))         (setq l3 (entlast))
        (command "hatch" "p" "solid"  l l1 l2 l3 "" "ERASE" l l1 l2 l3 "")       
        (command "undo" "e")(setvar "cmdecho" 1)
        (princ)       
)

cheefeel

start4444 发表于 2022-11-25 13:28
(defun c:tt5 (/ d l l1 l2 l3 obj obj1 pt);;偏移填充->删除边线和原对象
        (setvar "cmdecho" 0)(command ...

能否改一版生成填充后，保留原有 目标线 的插件呢！非常感谢！

cheefeel

start4444 发表于 2022-11-25 13:28
(defun c:tt5 (/ d l l1 l2 l3 obj obj1 pt);;偏移填充->删除边线和原对象
        (setvar "cmdecho" 0)(command ...

奇怪了，我删除了这一句以后，被偏移对象还是消失不见

sowin

能批量就更好了

start4444

cheefeel 发表于 2022-11-29 18:52
奇怪了，我删除了这一句以后，被偏移对象还是消失不见

再换一下这句
(command "hatch" "p" "solid"  (setq ss (ssadd) ss (ssadd l ss) ss (ssadd l1 ss) ss (ssadd l2 ss) ss (ssadd l3 ss)) "" "ERASE" (if pt (ssdel l ss) ss) "")

cheefeel

start4444 发表于 2022-11-29 21:11
再换一下这句
(command "hatch" "p" "solid"  (setq ss (ssadd) ss (ssadd l ss) ss (ssadd l1 ss) ss ( ...

确实可以了！
最后还有一个小问题就是这个偏移没有继承目标对象的图层。
就是说偏移出来的填充其实是在当前图层创建的，而不是继承目标对象的图层，这个能改一下吗？