Lisp将多线转换为s

isutheparambil · 发表于 2022-7-5 16:07:08

你好

我正在寻找一个lisp，可以将多行转换为一个单PLINE。
我在附件中找到的将同一多行转换为2 PLINE的lisp

但我需要多条线连接到一条线，而不是两条线。
如果有人有任何想法，请与我分享。。。
:)

ReMark · 发表于 2022-7-5 16:11:46

最终结果是一条多段线，其宽度模拟了两条多线之间的距离？

isutheparambil · 发表于 2022-7-5 16:18:29

可根据图纸进行更改。。
假设MLINE表示管道，则管道直径应不同。。。

ReMark · 发表于 2022-7-5 16:21:13

注意，我没有指定“set”宽度。所以基本上我的问题的答案是“是的”。对的

isutheparambil · 发表于 2022-7-5 16:26:22

希望你抓住我。。。。

BIGAL · 发表于 2022-7-5 16:29:22

备注看起来像mline的原始中心线，不确定mline的“co ords”给出了什么，也需要检查顶部、底部和零。

copy

; converts mline to pline note uses mline vertices does not take
; into account top or bottom offset
; By Alan H Aug 2017
(defun c:test ( / co-ords ent co-ordsxy xy oldsnap)
(setq oldsnap (getvar "osmode"))
(setq ss (ssget (list (cons 0 "Mline")))) ; pick only mlines
(if (/= ss nil)
(progn
(repeat (setq x (sslength ss))
(setq ent (ssname ss (setq x (- x 1)))) ; get mlines
(setq co-ords 
(vlax-safearray->list
(vlax-variant-value
(vlax-get-property
(vlax-ename->vla-object ent) ; get co-ordinates of mline
"Coordinates"
)
)
)
)
; convert now to a list of xy as co-ords are x y x y x y if 3d x y z x y z
(setq numb (/ (length co-ords) 3)) ; mlines have a z value hence / 3
(setq I 0)
(repeat numb
(setq xy (list (nth i co-ords)(nth (+ I 1) co-ords) ))
(setq co-ordsxy (cons xy co-ordsxy)) ; make a list of co-ordinates
(setq I (+ I 3))
)
(setvar "osmode" 0)
(command "_pline")
(while (= (getvar "cmdactive") 1 )
(repeat (setq y (length co-ordsxy))
(command (nth (setq y (- y 1)) co-ordsxy)) ; read list of points
)
(command "")
)
(setq co-ordsxy nil) ; reset to do again
(command "erase" ent "")
)
)
)
(setvar "osmode" oldsnap) ; reset snap mode
)