社区 › AutoLISP/Visual LISP 编程技术 › 悬赏求一个画圆的小功能

664571221 发表于 2017-10-5 14:32:20

悬赏求一个画圆的小功能

如题，有轴网，选择两条轴线，在轴线处画一个直径1000的红色的圆，如图片，选了b轴线和3轴线，就在他们交点处画一个圆形

664571221 发表于 2017-10-5 14:33:07

相当于两直线的交点处画一个红色的直径1000的圆形

vectra 发表于 2017-10-5 15:44:41

本帖最后由 vectra 于 2017-10-5 15:47 编辑

(defun c:tt (/ l1 l2 p)
(if (and (princ "选择第一条直线:")
         (while (not l1)
             (setq l1 (ssget ":E:S" '((0 . "LINE"))))
         )
         (princ "选择第二条直线:")
         (while (not l2)
             (setq l2 (ssget ":E:S" '((0 . "LINE"))))
         )
         (setq l1 (ssname l1 0)
               l2 (ssname l2 0)
               p(inters (cdr (assoc 10 (entget l1)))
                            (cdr (assoc 11 (entget l1)))
                            (cdr (assoc 10 (entget l2)))
                            (cdr (assoc 11 (entget l2)))
                            t
                  )
         )
      )
    (entmake
      (list (cons 0 "CIRCLE") (cons 10 p) (cons 40 500.) (cons 62 1))
    )
    (princ "无效选择或无交点。")
)
(princ)
)

查看完整版本: 悬赏求一个画圆的小功能