（完成）[编程申请]：将SOLID画的实体变成line线条（附图）

lengliqun

将SOLID画的实体变成line线条（附图）

eachy

最初由 lengliqun 发布
[B]将SOLID画的实体变成line线条（附图） [/B]

请说明用途

2. 
   
3. (defun c:SolidtoLine (/ ss)
   
4.   (if (setq ss (ssget '((0 . "solid"))))
   
5.     (progn
   
6.       (xdrx_begin)
   
7.       (xdrx_sysvar_push "osmode")
   
8.       (xdrx_setsstodb ss 0)
   
9.       (setvar "osmode" 0)
   
10.       (while (xdrx_getentdata 0)
    
11.         (xdrx_line1 (xdrx_getentdxf 10) (xdrx_getentdxf 12))
    
12.         (xdrx_line1 (xdrx_getentdxf 10) (xdrx_getentdxf 11))
    
13.         (xdrx_line1 (xdrx_getentdxf 11) (xdrx_getentdxf 13))
    
14.         (xdrx_line1 (xdrx_getentdxf 12) (xdrx_getentdxf 13))
    
15.       )
    
16.       (command ".erase" ss "")
    
17.       (xdrx_sysvar_pop)
    
18.       (xdrx_end)
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    

<br /> (defun c:SolidtoLine (/ ss)<br />   (if (setq ss (ssget '((0 . "solid"))))<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_sysvar_push "osmode")<br />       (xdrx_setsstodb ss 0)<br />       (setvar "osmode" 0)<br />       (while (xdrx_getentdata 0)<br />         (xdrx_line1 (xdrx_getentdxf 10) (xdrx_getentdxf 12))<br />         (xdrx_line1 (xdrx_getentdxf 10) (xdrx_getentdxf 11))<br />         (xdrx_line1 (xdrx_getentdxf 11) (xdrx_getentdxf 13))<br />         (xdrx_line1 (xdrx_getentdxf 12) (xdrx_getentdxf 13))<br />       )<br />       (command ".erase" ss "")<br />       (xdrx_sysvar_pop)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

lengliqun

用途：将建筑专业的实体变成结构专业的实体，便于在结构软件中导入导出。谢谢！

aeo

solid可能是三角形的.

john2004

可能是L形的2个solid合成

陌生人

[php]
;so2l = 将SOLID画的实体变成line, pl线条 ok!---------------by -陌生人.2004.5
(defun c:so2l (/ e ss0 ss)
  (setq e (entlast) ss0 (ssadd))
  (setvar "qaflags" 1)
  (if (setq ss (ssget '((0 . "solid"))))
    (progn
      (vl-cmdf ".REGION" ss "")
      (while (setq e (entnext e))(ssadd e ss0))
      (vl-cmdf ".union" ss0 "")
      (vl-cmdf ".EXPLODE" (entlast) ""  ".EXPLODE" "p" "")
      (initget "Yes No")
      (if (= "Yes" (getkword "\n是否连成pline?[Yes/<No>]:"))
          (vl-cmdf ".pedit" "m" "P" "" "y" "j" "" "")
      )
    )
  )
)[/php]