arc的端点的dxf码.

citykunan · 发表于 2004-5-26 14:00:00

dxf码中有没有提供arc的端点的代码？谢谢。

BDYCAD · 发表于 2004-5-26 14:09:00

沒有哦. 你可以用LISP寫程序求出來就是了

citykunan · 发表于 2004-5-26 14:15:00

就是因为圆弧很难确定其形状，我是通过导角后产生的圆弧，想求出它的两个端点。不知有什么办法吗？

citykunan · 发表于 2004-5-26 14:21:00

我知道了可以通过50和51号码算出(defun arc_point (arc / arc_center arc_radius start_angle end_angle)
   (setq arc_center (cdr (assoc 10 (entget arc))))
   (setq arc_radius (cdr (assoc 40 (entget arc))))
   (setq start_angle (cdr (assoc 50 (entget arc))))
   (setq end_angle (cdr (assoc 51 (entget arc))))
   (setq arc_startpoint (polar arc_center start_angle arc_radius))
   (setq arc_endpoint (polar arc_center end_angle arc_radius))
)

BDYCAD · 发表于 2004-5-27 11:48:00

來個簡短的
(setq a (car (entsel)))
(setq aa (vlax-curve-getPointAtParam A (vlax-curve-getstartparam A) ));一個對象的起點
(setq aaa (vlax-curve-getPointAtParam A (vlax-curve-getEndParam A) ));一個對象的終點

龙龙仔 · 发表于 2004-5-27 12:25:00

傳回曲線的終點 (使用 WCS)
(vlax-curve-getEndPoint curve-obj)
傳回曲線的起點 (使用 WCS)
(vlax-curve-getStartPoint curve-obj)

arc的端点的dxf码.

发表回复

精选推荐