Question

求大佬用AUTO LISP语言编写一个图(ಥ_ಥ)

求大佬用AUTO LISP语言编写一个图(ಥ_ಥ)就下面，我还是水平有点不足

Answer 1

(defun c:abc()
  (setq ptx (getpoint "\n输入圆心点:"))
  (setq rr (getdist ptx "\n指定半径:"))
  (setvar "cmdecho" 0)
  (setq oldos (getvar "osmode"))
  (setvar "osmode" 0)
  (command "circle" ptx rr)
  (setq ang1 (/ pi 2) ang2 (/ pi 3))
  (setq nn 0)
  (repeat 6
    (setq pt1 (polar ptx (+ ang1 (* nn ang2)) rr))
    (setq pt2 (polar ptx (+ ang1 (* (+ 2 nn) ang2)) rr))
    (command "line" pt1 pt2 "")
    (if (zerop (rem nn 2))
      (command "arc" pt1 ptx pt2)
    )
    (setq nn (1+ nn))
  )
  (setvar "osmode" oldos)
  (setvar "cmdecho" 1)
  (princ)
)