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

357785513 · 发表于 2014-4-5 09:40

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

kwok · 发表于 2014-4-5 15:47

本帖最后由 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)
)

357785513 · 发表于 2014-4-6 07:41

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

357785513 · 发表于 2014-4-6 07:47

(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 · 发表于 2014-4-8 08:40

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

357785513 · 发表于 2014-4-8 12:34

胡乱拼了一下不行,还得劳高人指点,我想画的那根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 · 发表于 2014-4-9 07:09

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

357785513 · 发表于 2014-4-10 07:32

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

357785513 · 发表于 2014-4-10 22:29

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

357785513 · 发表于 2014-4-13 22:27

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

账号		自动登录	找回密码
密码			注册

[基础] 绘制CENTER线型曲线后两边偏移

评分

点评

点评

本帖子中包含更多资源

点评