绘制CENTER线型曲线后两边偏移
绘制CENTER线型曲线后两边偏移有没有一步做到各位，最近搞了道路图，道路的中间的线是CENTER线型，先得画完这根线，再用偏移命令把这根线两边偏移，可不可以画完CENTER线型线了就两偏移了，不想再输入偏移命令了，本帖最后由 kwok 于 2014-4-15 20:39 编辑
简单的，自已可以按要求再深化，如偏到图层改色等...(defun c:tt (/ w pline )
(vl-load-com)
(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 pline (entlast))
(vla-Offset (vlax-ename->vla-object pline) (/ w 2.0))
(vla-Offset (vlax-ename->vla-object pline) (/ w -2.0))
(command "chprop" pline """lt" "center" "s" 200 "");;;中心线比例200,提示没有center手动加载一下,一般不用的.
(command ".undo" "e")
(princ)
) 命令: ; 错误: no function definition: VLAX-ENAME->VLA-OBJECT
出现这个 (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)
) 我为什么改为(defun c:tt (/ w spline )
就不行了呢 胡乱拼了一下不行,还得劳高人指点,我想画的那根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)
) 昨天给依据kwok 先生的程序改了一下，程序用不了，高手有空给看看要在什么地方加些代码 昨天在学院QQ群里看有有Q友贴出本贴主的要真实目的，对了，画道路线就这样，中间线是中心线，可是再看Q友时已经下线了 不是吧。为什么没人顶铁哟。难道只有我一个人画道路嘛
再顶一下，没高手看啦，沉了