gc666666 发表于 2020-4-6 19:36:54

求大佬指点

大佬能给看一下这个程序吗?
(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))运行之后怎么是这种结果,http://bbs.mjtd.com/forum.php?mod=image&aid=108363&size=300x300&key=af1b65cfaf7260ff&nocache=yes&type=fixnone应该是是这种结果才对啊,百思不得其解,求指点!http://bbs.mjtd.com/forum.php?mod=image&aid=108364&size=300x300&key=73f8eb5ef4b40f75&nocache=yes&type=fixnone

YueFeng 发表于 2020-4-6 19:36:55

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

mahuan1279 发表于 2020-4-7 07:28:28

07版本里运行没问题啊。你对象捕捉关了吗?(07版关不关对象捕捉没影响)

gc666666 发表于 2020-4-7 09:13:03

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

你好,已经解决,就是捕捉的原因,多谢
页: [1]
查看完整版本: 求大佬指点