绘制CENTER线型曲线后两边偏移

xyp1964

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

xyp1964

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

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

357785513

院长真不错,高

357785513

试用了,可以,高明院长

357785513

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

wen1234

kwok 老师更高可以单独实现

wen1234

kwok 老师    Automation 错误。 偏移无效

357785513

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

xyp1964

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

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

bai2000

能不能改为两边偏移不同距离？