xyp1964 发表于 2014-4-14 08:30:13

本帖最后由 xyp1964 于 2014-4-14 08:34 编辑

先画spline线为s1，双向偏移s1，改s1线型为center

xyp1964 发表于 2014-4-14 08:31:22


;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF;; 道路线
(defun c:tt ()
(xyp-JZXX "CENTER" "ACADISO")
(setvar 'celtype "continuous")
(setq dist (Udist 1 "" "道路宽度<输入或鼠标直接量取>" dist nil))
(command "spline")
(while (/= (getvar 'cmdactive) 0)
    (command pause)
)
(setq s1 (entlast))
(xyp-Offset s1 (* dist 0.5) t t nil)
(xyp-SubUpd s1 6 "CENTER")
(princ)
)

357785513 发表于 2014-4-14 12:34:48

院长真不错,高

357785513 发表于 2014-4-14 12:48:48

试用了,可以,高明院长

357785513 发表于 2014-4-15 00:14:01

今天用了一天。太好用了，高人

wen1234 发表于 2014-4-15 12:44:45

kwok 老师更高可以单独实现

wen1234 发表于 2014-4-15 13:23:36

kwok 老师    Automation 错误。 偏移无效

357785513 发表于 2014-4-16 07:25:13

kwok老师的却实是不错，可以单LSP执行，可不可以画出来的与偏移出来的成组呢，院长的工具很多也很庞大

xyp1964 发表于 2014-4-16 09:56:58

;; 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF
;; 道路线(成组)
(defun c:tt ()
(xyp-JZXX "CENTER" "ACADISO")
(setvar 'celtype "continuous")
(setq dist (Udist 1 "" "道路宽度<输入或鼠标直接量取>" dist nil))
(xyp-Group0)
(command "spline")
(while (/= (getvar 'cmdactive) 0) (command pause))
(setq s1 (entlast))
(xyp-Offset s1 (* dist 0.5) t t nil)
(xyp-SubUpd s1 6 "CENTER")
(xyp-Group1)
(princ)
)

bai2000 发表于 2014-4-16 10:11:57

本帖最后由 bai2000 于 2014-4-16 10:13 编辑

能不能改为两边偏移不同距离？
页: 1 [2] 3
查看完整版本: 绘制CENTER线型曲线后两边偏移