[LISP程序]：以附件形式发一个类似于PEDIT命令的"线型生成"选项的LISP程序

cgl

两次以代码形式发《一个类似于PEDIT命令的"线型生成"选项的LISP程序》的帖子均失败，现以附件形式发。

cgl

一个类似于PEDIT命令的"线型生成"选项的LISP程序的功能图片

zhynt

？？？？除了颜色外，我没看出有什么不同。
更正，呵呵是我没看仔细啊，是不同哦。

eachy

这样帖
注意：为了显示，以下代码含有空格，不可直接复制粘贴，使用请下载附件，谢谢。

2. 
   
3. ;;程序功能:类似于PEDIT命令的"线型生成"选项，可将当前图档中的"POLYLINE"、"LWPOLYLINE"
   
4. ;;多段线线型生成开关全部或部分打开。
   
5. ;;执行方式：程序加载后，在命令提示行键入"polylt",然后选择"0-全部"、"1-选择"选项，择前者，
   
6. ;;将当前图档中的所有多段线线型开关全部打开，选择后者，只打开用户选择的多段线线型开关。
   
7. ;;适用版本：AUTICAD R14、AUTOCAD 2000、AUTOCAD 2002。
   
8. ;;
   
9. ;;代码：
   
10. 
    
11. (defun c:polylt(/ ss sn  i nsel FS)
    
12.         (setq ss nil sn 0  )
    
13.           (setq fs (getint "\n线形生成(0-全部  1-选择):"))
    
14.         (prompt  "\n请选择复合线")
    
15.           (if (= fs 0)
    
16.                 (setq ss (ssget "X"  '(
    
17.                                         (-4 . " < OR")
    
18.                                                 (0 . "POLYLINE")
    
19.                                                 (0 . "LWPOLYLINE")
    
20.                                         (-4 . "OR>")
    
21.                                 )
    
22.                         )
    
23.                 )
    
24.                 (setq ss (ssget   '(
    
25.                                         (-4 . " < OR")
    
26.                                                 (0 . "POLYLINE")
    
27.                                                 (0 . "LWPOLYLINE")
    
28.                                         (-4 . "OR > ")
    
29.                                 )
    
30.                         )
    
31.                 )
    
32.         )
    
33.         (if (= ss nil)
    
34.                 (setq sn 0)
    
35.                 (setq sn (sslength ss) i -1)
    
36.         )
    
37.         (repeat sn
    
38.                 (setq i (1+ i) nsel (ssname ss i))
    
39.                 (command "pedit" nsel "lt" "on" "x")
    
40.         )
    
41. )

<br /> ;;程序功能:类似于PEDIT命令的"线型生成"选项，可将当前图档中的"POLYLINE"、"LWPOLYLINE"<br /> ;;多段线线型生成开关全部或部分打开。<br /> ;;执行方式：程序加载后，在命令提示行键入"polylt",然后选择"0-全部"、"1-选择"选项，择前者，<br /> ;;将当前图档中的所有多段线线型开关全部打开，选择后者，只打开用户选择的多段线线型开关。<br /> ;;适用版本：AUTICAD R14、AUTOCAD 2000、AUTOCAD 2002。<br /> ;;<br /> ;;代码： <br /> <br /> (defun c:polylt(/ ss sn  i nsel FS)<br />         (setq ss nil sn 0  )<br />           (setq fs (getint "\n线形生成(0-全部  1-选择):"))<br />         (prompt  "\n请选择复合线")<br />           (if (= fs 0)<br />                 (setq ss (ssget "X"  '( <br />                                         (-4 . " < OR")<br />                                                 (0 . "POLYLINE")<br />                                                 (0 . "LWPOLYLINE")<br />                                         (-4 . "OR>")<br />                                 )<br />                         )<br />                 )<br />                 (setq ss (ssget   '( <br />                                         (-4 . " < OR")<br />                                                 (0 . "POLYLINE")<br />                                                 (0 . "LWPOLYLINE")<br />                                         (-4 . "OR > ")<br />                                 )<br />                         )<br />                 )<br />         )<br />         (if (= ss nil)<br />                 (setq sn 0)<br />                 (setq sn (sslength ss) i -1)<br />         )<br />         (repeat sn<br />                 (setq i (1+ i) nsel (ssname ss i))<br />                 (command "pedit" nsel "lt" "on" "x")<br />         )<br /> )

cgl

谢谢EACHY斑竹将我的代码贴出来！

路宁宁

牛啊，谢谢楼主了。