社区 › Auto Lisp › 查找半径弧

gS7 发表于 2022-7-6 07:41:04

为什么要选择线对象？

gS7 发表于 2022-7-6 07:44:04

尝试此代码。
 
(defun c:Test ()
   (while
    (progn
          (setvar 'errno 0)
      (setq ss (car (entsel "\nSelect Object:")))
                          (cond
                                  ( ( = 7 (getvar 'errno)) (princ "\nNothing Selected."))
                                        ( ( = (cdr (assoc 0 (entget ss))) "LINE") (princ "\nLine Was Picked."))
                                        ( ( = (cdr (assoc 0 (entget ss))) "ARC")
                                          (setq ent (vlax-ename->vla-object ss))
                                          (setq r (vla-get-radius ent))
                                          (princ r)
                                        )
                                )
        )
)
(princ))

Tharwat 发表于 2022-7-6 07:49:45

 
这段代码将只计算选定圆弧的半径，而不考虑直线的长度。
 
8

查看完整版本: 查找半径弧