关于rectang函数，求指点

烟消云_uXWx3 · 发表于 2020-4-6 19:40:31

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

(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)
)
运行之后怎么是这种结果，
关于rectang函数，求指点-1.jpg

应该是是这种结果才对啊，百思不得其解，求指点！关于rectang函数，求指点-2.jpg

感觉是rectang函数的问题，求大佬指点

烟消云_uXWx3 · 发表于 2020-4-7 09:11:21

已解决......

账号		自动登录	找回密码
密码			立即注册

[求助] 关于rectang函数，求指点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。