[编程申请]：求提取块的轮廓线的程序

心竹

别人那里拷贝来的规划图，图上有很多不同的套型块，我现在只需要他的外轮廓进行填充，申请编个提取块的外轮廓的程序。

eachy

最初由 心竹 发布
[B]别人那里拷贝来的规划图，图上有很多不同的套型块，我现在只需要他的外轮廓进行填充，申请编个提取块的外轮廓的程序。 [/B]

用工具箱的 outline

心竹

在2005上用了，但cad死机

在2002上可以用，但要求输入轮廓线宽度是整数（0不承认），而且每次只能提取一个块的轮廓线，我需要选中n个块，一次性提取他们的轮廓，而且默认提取的线到专门的图层上，线宽随层。

eachy

最初由 心竹 发布
[B]在2005上用了，但cad死机

在2002上可以用，但要求输入轮廓线宽度是整数（0不承认），而且每次只能提取一个块的轮廓线，我需要选中n个块，一次性提取他们的轮廓，而且默认提取的线到专门的图层上，线宽随层。 [/B]

2. 
   
3. (defun c:Insoutln (/ ss ssl e s1 s2)
   
4.   (prompt "\n请选取Insert实体<退出>:")
   
5.   (if (setq ss (ssget '((0 . "insert"))))
   
6.     (progn
   
7.       (xdrx_begin)
   
8.       (xdrx_ucson)
   
9.       (xdrx_sysvar_push "osmode" "cmdecho")
   
10.       (setvar "cmdecho" 0)
    
11.       (setq ssl (sslength ss))
    
12.       (xdrx_setmark)
    
13.       (while (> ssl 0)
    
14.         (setq s1 (ssadd))
    
15.         (setq e (ssname ss (setq ssl (1- ssl))))
    
16.         (xdrx_searchoutline (ssadd e s1) 1)
    
17.         (setq s1 nil)
    
18.       )
    
19.       (setq s2 (xdrx_getss))
    
20.       (command ".pedit" "m" s2 "" "w" "0" "")
    
21.       (xdrx_sysvar_pop)
    
22.       (xdrx_ucsoff)
    
23.       (xdrx_end)
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )
    

<br /> (defun c:Insoutln (/ ss ssl e s1 s2)<br />   (prompt "\n请选取Insert实体<退出>:")<br />   (if (setq ss (ssget '((0 . "insert"))))<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_ucson)<br />       (xdrx_sysvar_push "osmode" "cmdecho")<br />       (setvar "cmdecho" 0)<br />       (setq ssl (sslength ss))<br />       (xdrx_setmark)<br />       (while (> ssl 0)<br />         (setq s1 (ssadd))<br />         (setq e (ssname ss (setq ssl (1- ssl))))<br />         (xdrx_searchoutline (ssadd e s1) 1)<br />         (setq s1 nil)<br />       )<br />       (setq s2 (xdrx_getss))<br />       (command ".pedit" "m" s2 "" "w" "0" "")<br />       (xdrx_sysvar_pop)<br />       (xdrx_ucsoff)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

zzsong

斑竹，提示错误啊。