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

357785513

绘制CENTER线型曲线后两边偏移有没有一步做到各位，最近搞了道路图，道路的中间的线是CENTER线型，先得画完这根线，再用偏移命令把这根线两边偏移，可不可以画完CENTER线型线了就两偏移了，不想再输入偏移命令了，

kwok

简单的，自已可以按要求再深化，如偏到图层改色等...

2. (defun c:tt (/ w pline )
   
3. (vl-load-com)
   
4.   (command ".undo" "be")
   
5.   (setq w (getreal "\n 双偏宽度<1000.0>: "))
   
6.       (if (null w) (setq w 1000))
   
7. (vl-cmdf ".spline")
   
8.   (while (= 1 (getvar "cmdactive"))
   
9.     (vl-cmdf pause)
   
10.   )
    
11.   (setq pline (entlast))
    
12.       (vla-Offset (vlax-ename->vla-object pline) (/ w 2.0))
    
13.       (vla-Offset (vlax-ename->vla-object pline) (/ w -2.0))
    
14. (command "chprop" pline ""  "lt" "center" "s" 200 "");;;中心线比例200,提示没有center手动加载一下,一般不用的.
    
15.   (command ".undo" "e")
    
16.   (princ)
    
17. )

(defun c:tt (/ w pline )<br /> (vl-load-com)<br />   (command ".undo" "be")<br />   (setq w (getreal "\n 双偏宽度<1000.0>: "))<br />       (if (null w) (setq w 1000))<br /> (vl-cmdf ".spline")<br />   (while (= 1 (getvar "cmdactive"))<br />     (vl-cmdf pause)<br />   )<br />   (setq pline (entlast))<br />       (vla-Offset (vlax-ename->vla-object pline) (/ w 2.0))<br />       (vla-Offset (vlax-ename->vla-object pline) (/ w -2.0))<br /> (command "chprop" pline ""  "lt" "center" "s" 200 "");;;中心线比例200,提示没有center手动加载一下,一般不用的.<br />   (command ".undo" "e")<br />   (princ)<br /> )

357785513

命令: ; 错误: no function definition: VLAX-ENAME->VLA-OBJECT
出现这个

357785513

(defun c:tt (/ w spline )
  (command ".undo" "be")
  (setq w (getreal "\n 双偏宽度<1000.0>: "))
      (if (null w) (setq w 1000))
(vl-cmdf ".spline")
  (while (= 1 (getvar "cmdactive"))
    (vl-cmdf pause)
  )
  (setq spline (entlast))
      (vla-Offset (vlax-ename->vla-object pline) (/ w 2.0))
      (vla-Offset (vlax-ename->vla-object pline) (/ w -2.0))
  (command ".undo" "e")
  (princ)
)

357785513

我为什么改为(defun c:tt (/ w spline )
就不行了呢

357785513

胡乱拼了一下不行,还得劳高人指点,我想画的那根SPLINE线是CENTER线型,双偏的两根线为CONTINUOUS线型,高人指点呀

(defun c:tt (/ w pline )
  (command ".undo" "be")
  (setq w (getreal "\n 双偏宽度<100.0>: "))
      (if (null w) (setq w 100))
(vl-cmdf ".spline" "lt" "CENTER")
  (while (= 1 (getvar))
    (vl-cmdf pause)
  )
  (setq pline (entlast))
      (vla-Offset (vlax-ename->vla-object pline) (/ w 2.0))
      (vla-Offset (vlax-ename->vla-object pline) (/ w -2.0))
("lt" "CENTER")
  (command ".undo" "e")
  (princ)
)

357785513

昨天给依据kwok 先生的程序改了一下，程序用不了，高手有空给看看要在什么地方加些代码

357785513

昨天在学院QQ群里看有有Q友贴出本贴主的要真实目的，对了，画道路线就这样，中间线是中心线，可是再看Q友时已经下线了

357785513

不是吧。为什么没人顶铁哟。难道只有我一个人画道路嘛

357785513

再顶一下，没高手看啦，沉了