[求助]：怎么获取一条直线的数据

jensen_ko

怎么获取一条直线或曲线的数据,用arx
(如 起点  终点等)

zxp

使用list命令就可以啊！

jensen_ko

list命令在cad中可以直接用
但我想在arx中获取一直线或圆弧的数据 (比如一个起点付值个某个变量)那也可以用吗?或要其他的方法啊?
我的qq是55421316
邮箱  jensen_ko@163.com
再次感谢!!!!

xhy3000

好样的，这个问题暂时，问问

jensen_ko

帮帮忙呢
急啊
在这上面停了好长时间了

xyp1964

其实没啥用，lisp版：

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060314
   
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. ;;;
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (setq s1 (car (USEL 0 "LINE" "LINE线")))
    
18.   (princ "\n起点: ")
    
19.   (princ (xyp-get-CurveStartPoint s1))
    
20.   (princ "\n终点: ")
    
21.   (princ (xyp-get-CurveEndPoint s1))
    
22.   (princ "\n线长: ")
    
23.   (princ (xyp-get-CurveLength s1))
    
24.   (princ "\n图层: ")
    
25.   (princ (xyp-get-dxf 8 s1))
    
26.   (princ "\n颜色: ")
    
27.   (princ (xyp-get-color s1))
    
28.   (CMDLA1)
    
29. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060314<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 /> ;;;<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq s1 (car (USEL 0 "LINE" "LINE线")))<br />   (princ "\n起点: ")<br />   (princ (xyp-get-CurveStartPoint s1))<br />   (princ "\n终点: ")<br />   (princ (xyp-get-CurveEndPoint s1))<br />   (princ "\n线长: ")<br />   (princ (xyp-get-CurveLength s1))<br />   (princ "\n图层: ")<br />   (princ (xyp-get-dxf 8 s1))<br />   (princ "\n颜色: ")<br />   (princ (xyp-get-color s1))<br />   (CMDLA1)<br /> )[/FONT]

zheng209

绘制一条PLINE线
运行(setq ent (entget (entlast)))后得到如下信息：
((-1 . <图元名: 4006ad58>) (0 . "LWPOLYLINE") (330 . <图元名: 4006acf8>) (5 .
"2B") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbPolyline") (90 . 6) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 -130.443
133.054) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -159.732 176.953) (40 . 0.0) (41
. 0.0) (42 . 0.0) (10 -181.969 131.97) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
-200.41 194.839) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 -225.902 134.138) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 -248.682 179.663) (40 . 0.0) (41 . 0.0) (42 .
0.0) (210 1.22461e-016 -2.71917e-032 -1.0))



详见
http://www.xdcad.net/forum/showthread.php?s=&postid=749738#post749738