单线变双线,保留原线为中心线

wzg356

(defun c:sx ( / e ps p)
(if(setq e(ssget ":E:S" '((0 . "*line"))))(progn
        (setq e(ssname e 0))
        (setq ps(outcurvept e))
        (setq d(if(setq d(getdist "\n输入偏移宽度<20>"))d 20))
        (setvar "cmdecho" 0)
        (vl-cmdf "mline" "j" "z" "ST" "STANDARD" "S" d)
        (foreach p ps (vl-cmdf "non" p))
        (vl-cmdf "")
        (vl-cmdf  "change" e "" "p" "lt" "CENTER" "c" "1" "")
        (setvar "cmdecho" 1)
))(princ)
)

函数outcurvept在http://bbs.mjtd.com/thread-182691-1-1.html

aggdqty

wzg356 发表于 2023-3-22 22:02
(defun c:sx ( / e ps p)
(if(setq e(ssget ":E:S" '((0 . "*line"))))(progn
        (setq e(ssname e  ...

谢谢              

菜鸟初来乍到

下载来看看，感谢楼主分享

wangsr

实用的一个小插件收下