求助：帮我看一段程序，错在哪里？

go-go · 发表于 2003-10-22 20:38:00

请帮我看看这段程序错在哪里？为什么半径总也标注不上？
(defun c:hy()
  (setq o (getpoint"请输入圆心:"))
  (setq r1 (getreal "请输入圆半径:"))
  (command "circle" o r1)
  (setq en1 (entlast))
  (setq p1 (polar o (/(* 5 pi)4) (+ r2 10)))
  (command "dimradius" "en1" "t" r1 p1 "")
  )

lockmyeye · 发表于 2003-10-22 22:34:00

y2qd1ta5xmg.jpg

go-go · 发表于 2003-10-23 07:44:00

谢谢你的讲解，非常感谢，我明白了。

go-go · 发表于 2003-10-23 07:48:00

可是我还想问问，由于半径标注有几种形式，我如何用国际标准来标注。

go-go · 发表于 2003-10-23 08:07:00

如果我想把半径值改变，又怎么操作呢？我按照命令行写的，为什么总是出错呢？

lockmyeye · 发表于 2003-10-24 01:36:00

看一看HELP里面关于dimstyle的说明。
我很少使用到标注。

bigboom · 发表于 2003-10-30 16:18:00

改过程序也无法标注，不对

龙龙仔 · 发表于 2003-10-30 16:38:00

(defun C:HY ()
  (setq O (getpoint "请输入圆心:"))
  (setq R1 (getreal "请输入圆半径:"))
  (command "circle" O R1)
  (setq EN1 (entlast))
  (setq P1 (polar O (/ pi 4) (+ R1 10)))
  (command "_dimradius" (LIST en1 P1) P1)
)

merak · 发表于 2003-10-31 17:07:00

(defun C:HY (/ O R1 EN1 P1)
  (setq O (getpoint "请输入圆心:"))
  (setq R1 (getreal "请输入圆半径:"))
  (command "circle" O R1)
  (setq EN1 (entlast))
  (setq P1 (polar O (/ pi 4) (+ R1 10)))
  (command "_dimradius" (LIST en1 P1) "t" "想要输入的数据"  P1)
  (princ)
)

求助：帮我看一段程序，错在哪里？

发表回复

精选推荐