guican 发表于 2009-5-1 14:30:00

[求助]cad固定边长通过调整角度调指定面积

<p>有没有高手帮我编个LISP：cad闭合多段线里固定所有边长通过调整角度调指定面积，如果不能达到指定面积，就提示无法达到指定面积，以及固定闭合多段线里指定的某几条边长及通过调整角度及剩余边长调指定面积，如果不能达到指定面积，就提示无法达到指定面积。。。。。。。。。。</p><p>因为我要经常要调不改变尺寸调面积，求哪位老大帮我，不胜感激！</p>

sailorcwx 发表于 2009-5-1 16:29:00

<p>;加载vlisp函数集<br/>(vl-load-com)</p><p>;建立反应器<br/>(vlr-acdb-reactor nil '((:vlr-objectModified . getarea)))</p><p>;回调函数<br/>(defun getarea(robj ent)</p><p>&nbsp; ;判断是否为多段线<br/>&nbsp; (if (= (cdr (assoc 0 (entget (cadr ent)))) "LWPOLYLINE")</p><p>&nbsp;&nbsp;&nbsp; ;对多段线进行处理<br/>&nbsp;&nbsp;&nbsp; (progn</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;转成vlisp对象<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq obj (vlax-ename-&gt;vla-object (cadr ent)))</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;获取并显示多段先面积，精确到平方毫米<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ (strcat "\n面积=" (rtos (vla-get-area obj) 2 0) "平方毫米"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; (princ)<br/>&nbsp; )</p>

liminnet 发表于 2009-5-3 15:08:00

403181713 发表于 2021-7-22 17:19:24

运行不了啊
页: [1]
查看完整版本: [求助]cad固定边长通过调整角度调指定面积