求大佬指点

gc666666

大佬能给看一下这个程序吗？

(defun c:tt()

(setvar "cmdecho" 0)

(setq gl 8 gh 8 ah1 30 l 2000 h 2000 gla 200 glb 300)

(setq pa (getpoint "\n请输入板左下角点: "))

(setq pb (polar pa 0 l))

(setq pc (mapcar '+ pa (list l h 0.0)))

(setq p1 (mapcar '+ pa (list (* gla -1) (- ah1 (/ gl 2)) 0.0)))

(setq p2 (mapcar '+ p1 (list (+ gla l glb) gl 0.0)))

(command "rectang" pa pc)

(command "rectang" p1 p2)

(prin1)

)

运行之后怎么是这种结果，

应该是是这种结果才对啊，百思不得其解，求指点！

YueFeng

entmake出来各实体，可以不管捕捉。
command 出来要关闭捕捉。

mahuan1279

07版本里运行没问题啊。你对象捕捉关了吗？（07版关不关对象捕捉没影响）

gc666666

mahuan1279 发表于 2020-4-7 07:28
07版本里运行没问题啊。你对象捕捉关了吗？（07版关不关对象捕捉没影响）

你好，已经解决，就是捕捉的原因，多谢