用什么函数可以取得一直线的长度、起点坐标、终点坐标。

符公

用什么函数可以取得一直线的长度、起点坐标、终点坐标。

我用LIST命令可以查到，但不知在AUTOLISP 中如何提取其中的一个值？头痛啊啊。。。。

meflying

(setq ents (entget (car (entsel))))


起点setq pt1 (cdr (assoc 10 ents)))


终点setq pt2 (cdr (assoc 11 ents)))


长度setq len (distance pt1 pt2))

BDYCAD

(defun c:test (/ objx); 取得一個實體的兩下端點
(setq objx (vlax-ename->vla-object (car (entsel "\n選擇實體："))))
(list (vlax-curve-getEndPoint objx)(vlax-curve-getStartPoint objx))
)

符公

初次领教。。。谢了（2楼）！！

yxp

二楼大侠的方法对于LINE画的直线可以,但对于PLINE画的直线(即LWPOLYLINE类型)好象行不通.其信息列表如下: (
(-1 . <Entity name: 36e05a8>)
(0 . "LWPOLYLINE")
(5 . "6D")
(100 . "AcDbEntity")
(67 . 0)
(8 . "0")
(100 . "AcDbPolyline")
(90 . 2)
(70 . 0)
(43 . 500.0)
(38 . 0.0)
(39 . 0.0)
(10 7740.1 14473.5)
(40 . 500.0)
(41 . 500.0)
(42 . 0.0)
(10 92809.6 14473.5)
(40 . 500.0)
(41 . 500.0)
(42 . 0.0)
(210 0.0 0.0 1.0)
) 我用下列程序返回起点和终点: qd 起点 zd终点. (setq cc (ssget '((-4 . "<or")(0 . "LINE") (0 . "LWPOLYLINE")(-4 . "or>")))
qd (cdr (assoc 10 (entget (ssname cc 0)))) zd (cdr (assoc 11 (entget (ssname cc 0))))
)
但LWPOLYLINE却没有11项点对表,很是奇怪?不知道是CAD的错误,还是我的错误? 注:我用的是R14版本.

yxp

问题已解决,对于PLINE的线 (setq cc (ssget '((0 . "LWPOLYLINE")))
qd (cdr (assoc 10 (entget (ssname cc 0)))) zd (cdr (assoc 10 (reverse(entget (ssname cc 0)))))
)
是不是很简单.

yxp

楼上的做法好象在R14里无法运行啊.

tjxjl

如果是空间的三维直线怎么办呢？


请指教

meflying

一样

xigemapenis

圆弧呢 怎样读取其起点 终点