[求助]：[0221]请问SSGET "F"的使用

xyz518mm

[求助]：[0221]请问SSGET "F"的使用
我想使用 SSGET "F" 画过两线段求出其资料
但好像出错了
不知道该怎样修正
烦请各位高手解答一下
谢谢~


(SETQ PT1 (GETPOINT "\N第一点:"))
(SETQ PT2 (GETPOINT PT1 "\N第二点:"))
(SETQ SS1 (SSGET "F" (LIST PT1 PT2)
                       (LIST (CONS 0 "LINE")
                       )
))

(SETQ ET1 (ENTGET (SSNAME SS1 0))
      ET2 (ENTGET (SSNAME SS1 1))
      PT1 (CDR (ASSOC 10 P:ET1))
      PT2 (CDR (ASSOC 11 P:ET1))
      PT3 (CDR (ASSOC 10 P:ET2))
      PT4 (CDR (ASSOC 11 P:ET2))
)

hululu

上面的一段不就是选择两根线然后取出端点吗，程序挺累赘的，还得好好努力啊。

tjchkys

改了一下,不知能不能帮你?

------------------------------------------------------------------------
(SETQ PT1 (GETPOINT "\N第一点:"))
(SETQ PT2 (GETPOINT PT1 "\N第二点:"))
(SETQ SS1 (SSGET "F" (LIST PT1 PT2) (LIST (CONS 0 "LINE"))))
(setq n (sslength ss1))

(setq i 0)
(repeat N
(setq e (entget (ssname ss1 i)))
(setq i (+ i 1))
(print (CDR (ASSOC 10 e)))
(print (CDR (ASSOC 11 e)))
);end repeat

xyz518mm

谢谢各位高手的解答又学到了不少

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060211(2064)
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. 
    
14. (defun c:test ()
    
15.   (CMDLA0)
    
16.   (if (and (SETQ PT1 (GETPOINT "\n第一点:"))
    
17.            (setq PT2 (GETPOINT PT1 "\n第二点:"))
    
18.       )
    
19.     (progn
    
20.       (setq SS (SSGET "F"
    
21.                       (LIST PT1 PT2)
    
22.                       (LIST (CONS 0 "LINE")
    
23.                       )
    
24.                )
    
25.             i  -1
    
26.       )
    
27.       (while (setq s1 (ssname ss (setq i (1+ i))))
    
28.         (princ "\n")
    
29.         (princ (+ i 1))
    
30.         (princ "\n起点: ")
    
31.         (princ (xyp-get-dxf 10 s1))
    
32.         (princ "\n终点: ")
    
33.         (princ (xyp-get-dxf 11 s1))
    
34.       )
    
35.     )
    
36.   )
    
37.   (CMDLA1)
    
38. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060211(2064)<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (if (and (SETQ PT1 (GETPOINT "\n第一点:"))<br />            (setq PT2 (GETPOINT PT1 "\n第二点:"))<br />       )<br />     (progn<br />       (setq SS (SSGET "F"<br />                       (LIST PT1 PT2)<br />                       (LIST (CONS 0 "LINE")<br />                       )<br />                )<br />             i  -1<br />       )<br />       (while (setq s1 (ssname ss (setq i (1+ i))))<br />         (princ "\n")<br />         (princ (+ i 1))<br />         (princ "\n起点: ")<br />         (princ (xyp-get-dxf 10 s1))<br />         (princ "\n终点: ")<br />         (princ (xyp-get-dxf 11 s1))<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

enid

高手真多