fengye3585 发表于 2008-7-24 23:45:00

[原创][求助]三维多段线转二维多段线程序，调试成功，但加载出错！

<p>三维多段线转二维多段线程序，在VLIDE调试成功，也能实现所要实现的功能，但用(load "trans2d")加载时出错！提示; 错误: SETQ 中变量名错误: (vla-AddPolyline MSPACE PTS)！我已经检查了很多遍了，没有什么错误呀！再说了，在VLIDE中调试成功，也实现了我要的功能呀！不知道哪里出了问题，请指点！谢谢</p><p>(defun C:trans2d ()<br/>&nbsp; (VL-LOAD-COM)<br/>&nbsp; <br/>&nbsp; (setq AcadObject (vlax-get-acad-object))<br/>&nbsp; (setq AcadDocument (vla-get-ActiveDocument Acadobject))<br/>&nbsp; (setq mSpace (vla-get-ModelSpace Acaddocument))<br/>&nbsp;<br/>&nbsp; (setq ename (car (entsel "选择要转换的三维多段线:")))<br/>&nbsp; (setq ent_data (entget ename))<br/>&nbsp; (setq str_0 (cdr (assoc 0 ent_data)))<br/>&nbsp; (while (/= str_0 "POLYLINE")<br/>&nbsp;&nbsp;&nbsp; (setq ename (car (entsel "选择的实体非三维多段线,请重新选择!:")))<br/>&nbsp;&nbsp;&nbsp; (setq ent_data (entget ename))<br/>&nbsp;&nbsp;&nbsp; (setq str_0 (cdr (assoc 0 ent_data)))<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq obj (vlax-ename-&gt;vla-object ename))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq pts (vlax-variant-value (vla-get-coordinates obj)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vla-AddPolyline mSpace pts)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ)<br/>&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;)</p>

Andyhon 发表于 2012-7-3 21:55:43

(defun C:trans2d ()
    (setq AcadObject (vlax-get-acad-object))
    (setq AcadDocument (vla-get-ActiveDocument Acadobject))
    (setq mSpace (vla-get-ModelSpace Acaddocument))

    (Prompt "\n选择要转换的三维多段线: ")
    (setq ss (ssget '((0 . "POLYLINE")))
          i0
    )
    (while (setq ee (ssname ss i))
      (setq obj (vlax-ename->vla-object ee))
      (setq pts (vlax-variant-value (vla-get-coordinates obj)))
      (vla-AddPolyline mSpace pts)
      (setq i (1+ i))
    )
    (princ)
)

erlong 发表于 2020-6-14 21:30:33

学习了，不知道能不能提取三维多段线的顶点坐标

Johnspring 发表于 2024-6-3 20:51:37

很不错每天进步一点点

英雄无敌 发表于 2008-7-25 08:36:00

程序没有什么错误

yoyoho 发表于 2008-7-25 09:00:00

<p>测试结果(load "trans2d")加载很正常可运行啊!</p><p>三维多段线的确转二维多段线没异样!</p>

xsshhl 发表于 2009-9-11 16:54:00

<p>谢谢，你的软件是好的，可以用啊。</p>

lshlwy 发表于 2010-11-1 22:52:00

谢谢你的代码！

xhq1954425 发表于 2010-11-2 04:48:00

<p>下载学习，挺好的，谢谢楼主！</p>

gzbccy 发表于 2010-11-5 17:00:00

学习你的代码，谢谢。

004 发表于 2011-9-17 14:48:11

程序能用，没有处理闭合，线型。。。

egoroom 发表于 2012-7-3 21:11:54

能加个框选吗？
页: [1] 2
查看完整版本: [原创][求助]三维多段线转二维多段线程序，调试成功，但加载出错！