wzg356 发表于 2023-3-22 22:02:46

本帖最后由 wzg356 于 2023-3-22 22:05 编辑

(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 发表于 2023-3-24 13:23:05

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...

谢谢            

菜鸟初来乍到 发表于 2023-3-26 06:57:19

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

wangsr 发表于 2023-10-26 20:10:46

实用的一个小插件收下
页: 1 [2]
查看完整版本: 单线变双线,保留原线为中心线