[LISP程序]：圆弧的起点终点问题

redapple

(defun arce (en / cear)
  (if (= (enty en) "ARC")
    (setq cear (cdr (assoc 10 (entget en))))
  )
)
;;;圆弧的半径
(defun arra (en / raar)
  (if (= (enty en) "ARC")
    (setq raar (cadr (assoc 40 (entget en))))
  )
)
;;;圆弧的起点和终点坐标
(defun arst (en / c star)
  (if (= (enty en) "ARC")
    (setq c (cdr (assoc 10 (entget en))))
    (setq star (polar c (cadr (assoc 50 (entget en))) (arra en)))
  )
)
(defun ared (en / c edar)
  (if (= (enty en) "ARC")
    (setq c (cdr (assoc 10 (entget en))))
    (setq edar (polar c (cadr (assoc 51 (entget en))) (arra en)))
  )
)
运行结果圆弧的起点和终点坐标却都是圆心坐标，为什么？急等！

841594

实体数据的表是点对表，用
(cdr (assoc XXXX))，不用cadr

redapple

改过后调试，调用的是arst函数，结果还是圆心坐标，太郁闷了，请大家帮忙看看！

lsjjm

试试这个：
(defun c:test ()
  (setq en (car (entsel)))
  (setq pc (cdr (assoc 10 (entget en))))
  (setq r  (cdr (assoc 40 (entget en))))
  (setq as (cdr (assoc 50 (entget en))))
  (setq ae (cdr (assoc 51 (entget en))))
  (setq ps (polar pc as r))
  (setq pe (polar pc ae r))
)

陌生人

[php]
;取得圆弧（起点 终点）列表;
(defun c:test ()
(setq obj (vlax-ename->vla-object (car(entsel "\n选择圆弧："))))
(list (vlax-get obj 'startpoint) (vlax-get obj 'endpoint))
)
[/php]

Qlin

适用于各种有限长曲线（包括arc）：
[php]
(defun c:test (/ objx)
  (setq objx (vlax-ename->vla-object (car (entsel "\n选择线条："))))
  (list (vlax-curve-getEndPoint objx)(vlax-curve-getStartPoint objx))
);end
[/php]

andyhua5240

来个总结吧！
附件适用于有限长曲线。
命令：TEST

ll_j

最初由 redapple 发布
[B](defun arce (en / cear)
  (if (= (enty en) "ARC")
    (setq cear (cdr (assoc 10 (entget en))))
  )
)
;;;圆弧的半径
(defun arra (en / raar)
  (if (= (enty en) "ARC")
    (setq raar (cadr (assoc... [/B]

enty是什么函数？在那儿定义了？
if函数并行的分支应该使用函数progn，对应setq类型的分支语句可以连写为“(setq c 123 b (+ c 12)...)”的形式