3D多段线转二维多段线（LWPOLYLINE）

newer

1. (defun c:xdrx_3dpoly2pl (/ ss ents)
   
2.   (if (and (xdrx_initssget "\n选择要转换的3DPOLYLINE<退出>:")
   
3.            (setq ss (xdrx_ssget '((0 . "POLYLINE"))))
   
4.       )
   
5.     (progn
   
6.       (xdrx_begin)
   
7.       (mapcar '(lambda (x)
   
8.                  (if (xdrx_object_iskindof x "AcDb3dPolyline")
   
9.                    (setq ents (cons x ents))))
   
10.                
    
11.               (xdrx_pickset->ents ss)
    
12.       )
    
13.       (xdrx_entity_project ents)
    
14.       (xdrx_prompt
    
15.         "\n"
    
16.         (length ents)
    
17.         "个三维多段线转成了"
    
18.         "多段线."
    
19.       )
    
20.       (xdrx_end)
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )
    

(defun c:xdrx_3dpoly2pl (/ ss ents)<br />   (if (and (xdrx_initssget "\n选择要转换的3DPOLYLINE<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "POLYLINE"))))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (mapcar '(lambda (x)<br />                  (if (xdrx_object_iskindof x "AcDb3dPolyline")<br />                    (setq ents (cons x ents))))<br />                 <br />               (xdrx_pickset->ents ss)<br />       )<br />       (xdrx_entity_project ents)<br />       (xdrx_prompt<br />         "\n"<br />         (length ents)<br />         "个三维多段线转成了"<br />         "多段线."<br />       )<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

shqvc

没有看懂什么意思   

evayleung

又有好东西了，谢谢分享。。

shqvc

evayleung 发表于 2018-10-4 09:28
又有好东西了，谢谢分享。。

你能看的懂他这个是什么意思吗？

newer

shqvc 发表于 2018-10-4 16:30
你能看的懂他这个是什么意思吗？

3DPOLYLINE  ---> Z坐标0的 LWPOLYLINE

shqvc

newer 发表于 2018-10-4 17:22
3DPOLYLINE  ---> Z坐标0的 LWPOLYLINE

这个我还是不懂  不懂就不懂吧   问您一下新问题  如何给选择的图形加外框   是选择的图形就像我的这个图一样  我现在有全部的图直接加外框    但是没有选取物件加外框  在加外框的时候需要输入长宽的数字  输入多少我这边的是两个选项  1上下  2左右  可以自己输入距边的数值

newer

shqvc 发表于 2018-10-4 21:13
这个我还是不懂  不懂就不懂吧   问您一下新问题  如何给选择的图形加外框   是选择的图形就像我的这个图 ...

新问题，请发帖到编程申请论坛。

evayleung

shqvc 发表于 2018-10-4 16:30
你能看的懂他这个是什么意思吗？

不用懂，会用就行。

shqvc

newer 发表于 2018-10-4 21:19
新问题，请发帖到编程申请论坛。

好的  我知道了   我对这个  不太懂

xinrstar