124803430 发表于 2013-10-21 11:01:11

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

(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)
)

上面是两个程序代码

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

自贡黄明儒 发表于 2013-10-21 11:43:46

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

xyp1964 发表于 2013-10-21 12:35:15

(setvar"osmode"0)

llsheng_73 发表于 2013-10-31 15:13:03

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

l982414603 发表于 2020-9-24 11:56:47

(setvar"osmode"0)
页: [1]
查看完整版本: CAD界面缩小和放大画出来的图形不一样？？