CAD界面缩小和放大画出来的图形不一样？？

124803430

(defun c:ee()
  (setq aa (getpoint "请输入基准点："))
  (setq num (getint "\n 请输入相切圆的数量："))
  (setq rr (getreal "\n 请输入相切圆的半径："))
  (setq ang (/ pi num))
  (setq bb (polar aa (- ( * 1.5 pi) ang) (/ rr (sin ang))))
  (command "circle" bb rr )
  (command "array" (entlast) "" "p" aa num 360 "y")
  )



(defun c:ee()
  (prompt "<<程序开始>>")
  (setq p1 (getpoint "\n 请输入左下角点:"))
  (setq hh (getdist "\n 请输入高度<100>："))
  (if (null hh)
    (setq hh 100)
    )
  (setq ww (getdist "\n 请输入宽度<50>："))
  (if (null ww)
    (setq ww 50)
    )
  (setq p2 (polar p1 (/ pi 2) hh))
  (setq p3 (polar p2 0 (/ ww 3)))
  (setq p4 (polar p3 (/ pi -2) (/ hh 2)))
  (setq p5 (polar p4 0 (/ ww 3)))
  (setq p6 (polar p5 (/ pi 2) (/ hh 2)))
  (setq p7 (polar p6 0 (/ ww 3 )))
  (setq p8 (polar p7 (/ pi -2) hh))
  (command "pline" p1 p2 p3 p4 p5 p6 p7 p8 "c")
  (prompt "<<程序结束>>")
  (prin1)
  )

上面是两个程序代码

程序应该没什么问题，具体什么原因，想问问

自贡黄明儒

是不是没有关闭捕捉哟？！

xyp1964

(setvar"osmode"0)

llsheng_73

你程序前边没有关掉对象捕捉，(setvar"OSMODE"16384),程序完了可以(setvar"OSMODE"(-getvar"OSMODE")16384))再把它打开，就算你运行过程中自己中断了执行不到恢复语句也没事，你可以点一下就全恢复了，这就是不用(setvar"OSMODE"0)的一个好处

l982414603

(setvar"osmode"0)