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

Bellahx

在kwok老师的程序上进行了修改，希望不要介意，学习了一上午，弄清楚怎么创建组[em0] 果断的低效率。
在选择集创建上还是比较傻的方法。继续努力学习~

1. (defun c:ttt (/ w pline)
   
2.     (command ".undo" "be")
   
3.     (setq L (getreal "\n 正偏宽度<1000.0>: "))
   
4.     (setq R (getreal "\n 负偏宽度<L>: "))
   
5.     (if  (null L)
   
6.   (setq L 1000)
   
7.     )
   
8.     (if  (null R)
   
9.   (setq R L)
   
10.     )
    
11.     (vl-cmdf ".spline")
    
12.     (while (= 1 (getvar "cmdactive")) (vl-cmdf pause))
    
13.     (setq pline (entlast))
    
14.     (setq plinelist (ssget "L"))
    
15.     (vla-Offset (vlax-ename->vla-object pline) (/ R 2.0))
    
16.     (setq plineL (entlast))
    
17.     (ssadd plineL plinelist)
    
18.     (vla-Offset (vlax-ename->vla-object pline) (/ L -2.0))
    
19.     (setq plineR (entlast))
    
20.     (ssadd plineR plinelist)
    
21.     (command "chprop" pline "" "lt" "center" "s" 200 "")
    
22. ;;;中心线比例200
    
23. 
    
24.     (command "._undo"   "_begin"    "._-group"   "_create"
    
25.        "*"   "Road"       plinelist   ""
    
26.        "._undo"   "_end"
    
27.       )
    
28.           ;(command ".undo" "e")
    
29.     (princ)
    
30. )
    

(defun c:ttt (/ w pline)<br />     (command ".undo" "be")<br />     (setq L (getreal "\n 正偏宽度<1000.0>: "))<br />     (setq R (getreal "\n 负偏宽度<L>: "))<br />     (if  (null L)<br />   (setq L 1000)<br />     )<br />     (if  (null R)<br />   (setq R L)<br />     )<br />     (vl-cmdf ".spline")<br />     (while (= 1 (getvar "cmdactive")) (vl-cmdf pause))<br />     (setq pline (entlast))<br />     (setq plinelist (ssget "L"))<br />     (vla-Offset (vlax-ename->vla-object pline) (/ R 2.0))<br />     (setq plineL (entlast))<br />     (ssadd plineL plinelist)<br />     (vla-Offset (vlax-ename->vla-object pline) (/ L -2.0))<br />     (setq plineR (entlast))<br />     (ssadd plineR plinelist)<br />     (command "chprop" pline "" "lt" "center" "s" 200 "")<br /> ;;;中心线比例200<br /> <br />     (command "._undo"   "_begin"    "._-group"   "_create"<br />        "*"   "Road"       plinelist   ""<br />        "._undo"   "_end"<br />       )<br />           ;(command ".undo" "e")<br />     (princ)<br /> )<br />

Bellahx

Bellahx 发表于 2014-4-16 10:48
在kwok老师的程序上进行了修改，希望不要介意，学习了一上午，弄清楚怎么创建组 果断的低效率。
在选 ...

有个问题：
如果在创建pline的步骤不小心空格过去了没办法报错。有没有大牛指点一下~

xyp1964

bai2000 发表于 2014-4-16 10:11
能不能改为两边偏移不同距离？

当然可以！有何意义？

357785513

错误: no function definition: VLAX-ENAME->VLA-OBJECT

Bellahx兄台这行代码写得不全吧，是不是低版的CAD没有呀

Bellahx

357785513 发表于 2014-4-16 22:51
错误: no function definition: VLAX-ENAME->VLA-OBJECT

Bellahx兄台这行代码写得不全吧，是不是低版的C ...

调用 (vl-load-com)后都不会出现这个错误的。
错误粘百度里，第二条就是答案。

恕放之生命

谢谢分享。

chenbh2

Bellahx 发表于 2014-4-16 10:48
在kwok老师的程序上进行了修改，希望不要介意，学习了一上午，弄清楚怎么创建组 果断的低效率。
在选 ...

能不能将中线修改成虚线!或删除?
已找到代码
(command "._erase" pline "")
谢谢!