在kwok老师的程序上进行了修改，希望不要介意，学习了一上午，弄清楚怎么创建组 果断的低效率。
在选择集创建上还是比较傻的方法。继续努力学习~
(defun c:ttt (/ w pline)
(command ".undo" "be")
(setq L (getreal "\n 正偏宽度<1000.0>: "))
(setq R (getreal "\n 负偏宽度<L>: "))
(if(null L)
(setq L 1000)
)
(if(null R)
(setq R L)
)
(vl-cmdf ".spline")
(while (= 1 (getvar "cmdactive")) (vl-cmdf pause))
(setq pline (entlast))
(setq plinelist (ssget "L"))
(vla-Offset (vlax-ename->vla-object pline) (/ R 2.0))
(setq plineL (entlast))
(ssadd plineL plinelist)
(vla-Offset (vlax-ename->vla-object pline) (/ L -2.0))
(setq plineR (entlast))
(ssadd plineR plinelist)
(command "chprop" pline "" "lt" "center" "s" 200 "")
;;;中心线比例200
(command "._undo" "_begin" "._-group" "_create"
"*" "Road" plinelist ""
"._undo" "_end"
)
;(command ".undo" "e")
(princ)
)
Bellahx 发表于 2014-4-16 10:48 static/image/common/back.gif
在kwok老师的程序上进行了修改，希望不要介意，学习了一上午，弄清楚怎么创建组 果断的低效率。
在选 ...
有个问题：
如果在创建pline的步骤不小心空格过去了没办法报错。有没有大牛指点一下~
bai2000 发表于 2014-4-16 10:11 static/image/common/back.gif
能不能改为两边偏移不同距离？
当然可以！有何意义？
错误: no function definition: VLAX-ENAME->VLA-OBJECT
Bellahx兄台这行代码写得不全吧，是不是低版的CAD没有呀
357785513 发表于 2014-4-16 22:51 static/image/common/back.gif
错误: no function definition: VLAX-ENAME->VLA-OBJECT
Bellahx兄台这行代码写得不全吧，是不是低版的C ...
调用 (vl-load-com)后都不会出现这个错误的。
错误粘百度里，第二条就是答案。
谢谢分享。
本帖最后由 chenbh2 于 2014-11-17 00:52 编辑
Bellahx 发表于 2014-4-16 10:48 static/image/common/back.gif
在kwok老师的程序上进行了修改，希望不要介意，学习了一上午，弄清楚怎么创建组 果断的低效率。
在选 ...
能不能将中线修改成虚线!或删除?
已找到代码
(command "._erase" pline "")
谢谢!