如何才能正确选择图元并填充

raolun · 发表于 2020-6-29 08:06:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

不能正确填充
(defun c:tes(/ p0 r1 r2 )

(setq r1 (getreal"\内圆半径:"))
(setq r2 (getreal"\外圆半径:"))
(setq p0 (getpoint"\n中心点:"))
   (command  "circle"  p0 r1)
   (command  "circle"  p0 r2)
   (command "hatch" "p" "ANSI31" "1.0" "0" (entlast) "")
(princ)
)

原地踏步 · 发表于 2020-6-29 15:50:35

(defun c:tes(/ p0 r1 r2 e1 e2)

(setq r1 (getreal"\内圆半径:"))
(setq r2 (getreal"\外圆半径:"))
(setq p0 (getpoint"\n中心点:"))
   (command  "circle"  p0 r1)
   (setq e1 (entlast))
   (command  "circle"  p0 r2)
   (setq e2 (entlast))
   (command "hatch" "p" "ANSI31" "1.0" "0" e2 e1 "")
(princ)
)

raolun · 发表于 2020-6-30 07:59:10

原地踏步发表于 2020-6-29 15:50
(defun c:tes(/ p0 r1 r2 e1 e2)

(setq r1 (getreal"\内圆半径:"))

太感谢啦

raolun · 发表于 2020-7-3 15:14:41

问题己解决

账号		自动登录	找回密码
密码			立即注册

[求助] 如何才能正确选择图元并填充

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分