太极图

叶曲冰寒

=============================================
;绘制太极图
(defun c:tjt()
  (setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (command "circle" pause pause)
  (setq en (entlast))
  (setq cen (getcc en))
  (setq rad (getrad en))
  (setq cen1 (polar cen (/ pi 2) (/ rad 2)))
  (setq cen2 (polar cen (* pi 1.5) (/ rad 2)))
  (setq pt1 (polar cen (/ pi 2) rad))
  (setq pt2 (polar cen (* pi 1.5) rad))
  (command "arc" "c" cen1 pt1 cen)
  (setq en_1 (entlast))
  (command "arc" "c" cen2 pt2 cen)
  (setq en_2 (entlast))
  (command "circle" cen1 (/ rad 6))
  (command "hatch" "s" (entlast) "")
  (command "circle" cen2 (/ rad 6))
  (setq en_3 (entlast))
  (command "arc" "c" cen pt1 pt2)
  (setq en_4 (entlast))
  (command "hatch" "s" en_1 en_2 en_3 en_4 "")
  (entdel en_4)
  (setvar "osmode" os)
  (prin1)
)

(defun getrad(en)
(setq endata (entget en))
(setq rad (cdr (assoc 40 endata)))
)
(defun getcc(en)
(setq endata (entget en))
(setq cc (cdr (assoc 10 endata)))
)



该贴已经同步到 叶曲冰寒的微博

yoyoho

感谢 叶曲冰寒 分享程序!

叶曲冰寒

yoyoho 发表于 2014-5-1 11:55
叶曲冰寒 分享程序!

上面代码即是，其中getcc和getrad函数是自定义获取圆心坐标和圆的半径。

lucas_3333

有意思，楼主写一些实用一点的程序吧

328302216

楼主的程序不够通用，是不是事先设置好了好多东西？比如填充样式……在2012上试玩了一下达不到楼主演示的效果！虽然用不上  分享的是源码  顶一个

叶曲冰寒

328302216 发表于 2014-5-2 16:38
楼主的程序不够通用，是不是事先设置好了好多东西？比如填充样式……在2012上试玩了一下达不到楼主演示的效 ...

可能是CAD版本问题

叶曲冰寒

lucas_3333 发表于 2014-5-2 13:58
有意思，楼主写一些实用一点的程序吧

实用？怎么说呢？

xyp1964

不如直接插入图块

叶曲冰寒

xyp1964 发表于 2014-5-3 16:38
不如直接插入图块

说的极是！不过插入块有插入块的好处也有不便。

ymcui

有意思，楼主写一些实用一点的程序吧