选择圆,所选圆在其圆心处画一条直线

linheyuanpcb

求以下功能:选择圆,所选圆在其圆心处画一条直线

   就是圆到圆边上的半径直线,谢谢

linheyuanpcb

已经解决,.............................

(DEFUN C:CCH ( / SS OLDL OLDOS N I PC D PT1 PT2 PT3 PT4 A DL NN)
(SETVAR "CMDECHO" 0)
(PRINC "\nSelect Circle(s) :\n说明:请选择要标注的所有圆回车,点选圆便可自动画半径引线前面如不选到的圆则无效")
(setq snp(getvar "osmode"))
  (setq obj (ssget '((0 . "CIRCLE"))))
  (setvar "osmode" 0)
  (setq num 0)
  (IF (setq SS (SSGET '((0 . "CIRCLE")))) (PROGN
  (SETQ OLDL (GETVAR "CLAYER") OLDOS (GETVAR "OSMODE")
        N (SSLENGTH SS)    I 0)
  (COMMAND "LAYER" "M" "CUT" "")
  (SETVAR "OSMODE" 0)
  (REPEAT N
   (while (< num (sslength obj))
    (setq ent(entget(ssname obj num)))
    (setq cen(cdr(assoc 10 ent)))
    (setq r(cdr(assoc 40 ent)))
    (setq right(polar cen 0.0 (* 1.0 r)))
    (setq left(polar cen pi (* 0 r)))
    (setq top(polar cen (/ pi 2) (* 0  r)))
    (setq bottom(polar cen (* pi 0) (* 0 r)))
    (command "line" left right ""
      "line" top bottom "")
    (setq num (+ num 1))
    )
  (setvar "osmode" snp)
(PRINC)
))
)
)

清风明月名字

谢谢分享，学习一下

混沌初开

学习了!