jdhszh 发表于 2008-7-25 21:13:00

[原创]改线高程乘/除常数

<p>这是我作业中遇到的不知大家有用否</p><p>(defun c:gbg(/ ss a name elev)<br/>&nbsp; (command "undo" "be")<br/>&nbsp; (setq ss(ssget (list <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '(-4 . "&lt;OR")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 0 "lwpolyline")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 0 "polyline")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '(-4 . "OR&gt;")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )))<br/>&nbsp; (setq a 0)<br/>&nbsp; (repeat (sslength ss)<br/>&nbsp;&nbsp;&nbsp; (setq name(ssname ss a))<br/>&nbsp;&nbsp;&nbsp; (setq vlaobject-name (vlax-ename-&gt;vla-object name))<br/>&nbsp;&nbsp;&nbsp; (setq elev (vla-get-Elevation vlaobject-name))<br/>&nbsp;&nbsp;&nbsp; (vla-put-Elevation vlaobject-name (* elev 5));;乘常数<br/>&nbsp;&nbsp;&nbsp; (vlax-release-object vlaobject-name)<br/>&nbsp;&nbsp;&nbsp; (setq a(1+ a))<br/>)<br/>(command "undo" "e")<br/>)<br/>;;除常数<br/>(defun c:qbg(/ ss a name elev)<br/>&nbsp; (command "undo" "be")<br/>&nbsp; (setq ss(ssget (list <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '(-4 . "&lt;OR")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 0 "lwpolyline")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 0 "polyline")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '(-4 . "OR&gt;")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )))<br/>&nbsp; (setq a 0)<br/>&nbsp; (repeat (sslength ss)<br/>&nbsp;&nbsp;&nbsp; (setq name(ssname ss a))<br/>&nbsp;&nbsp;&nbsp; (setq vlaobject-name (vlax-ename-&gt;vla-object name))<br/>&nbsp;&nbsp;&nbsp; (setq elev (vla-get-Elevation vlaobject-name))<br/>&nbsp;&nbsp;&nbsp; (vla-put-Elevation vlaobject-name (/ elev 5));;除常数<br/>&nbsp;&nbsp;&nbsp; (vlax-release-object vlaobject-name)<br/>&nbsp;&nbsp;&nbsp; (setq a(1+ a))<br/>)<br/>(command "undo" "e")<br/>)</p>

xiewawa 发表于 2010-1-29 02:31:00

谢谢楼主！很好啊！

004 发表于 2012-12-3 01:55:21

是源码顶一下.
页: [1]
查看完整版本: [原创]改线高程乘/除常数