请高手都来看看
 

请高手都来看看
www.dimcax.com
请高手都来看看
我想在lisp编程中自动填充一个圆：命令为：
(command "circle" in_pk22 (* 0.3 s_k)) ；以in_pk22为圆心画一个圆
(command "-hatch" "p" " s" "in_pk22") ；填充圆
结果所画的圆没填充上，请高手赐教。谢谢
d
(defun c:tt ()
(command "circle" (setq pt (getpoint)) (* 0.3 2))
(command "-hatch" "p" "s" "s" (entlast) "" "")
(princ)
)
要努力学习,不进则退
网络u盘：
谢谢龙龙仔的帮组，向你学习
d