关于polar函数

烟消云_uXWx3 · 发表于 2020-3-31 10:25:02

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

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

×

想通过pa求得pc点，正常程序是这样
(defun c:zx()
  (setq l (getint "\n请输入板长l= "))
  (setq h (getint "\n请输入板高h= "))
  (setq pa (getpoint "请输入板左下角点: "))
  (setq pb (polar pa 0 l ))
(setq pc (polar pb (/ pi 2) h))
  (command "line" pa pb pc pa"")；画出线框
)
能不能类似下面这样一步能求得pc，并利用rectang函数直接画出线框
(setq pc (polar pa 0 l (/ pi 2) h)) ；（这一步试过行不通）
(command "rectang" pa  pc "")
还请大佬们指点

dnbcgrass · 发表于 2020-3-31 21:08:21

(defun c:zx()
  (setq l (getint "\n请输入板长l= "))
  (setq h (getint "\n请输入板高h= "))
  (setq pa (getpoint "请输入板左下角点: "))
  ;(setq pc (polar (polar pa 0 l ) (* pi 0.5) h))
  ;或者
  (setq pc (mapcar '+ pa (list l h 0.0)))
  (command "rectang" pa  pc "")
)

434939575 · 发表于 2020-3-31 16:29:24

(defun c:tt()
(setq p(getpoint)
x 100 y 50)
(command "rectang" p "d" x y p ""))

XDSoft · 发表于 2020-3-31 17:07:32

(polar pa 0 l (/ pi 2) h)

自己对照polar要求的参数，看看错在哪

烟消云_uXWx3 · 发表于 2020-4-1 09:24:11

dnbcgrass 发表于 2020-3-31 21:08
(defun c:zx()
(setq l (getint "\n请输入板长l= "))
(setq h (getint "\n请输入板高h= "))

大佬，能给看一下这个程序吗？
前面已经求出A=1，B=2，S=1，X=3，Y=4,B=5
输出程序：
(princ A)(princ "+")(princ Y)(princ "+")(princ S) (princ "*")(princ X)(princ "+")(princ Y)(princ "+")(princ B)
输出结果：1+2+1*3+4+5
像这种程序能不能给优化一下，这么多princ函数，看着太繁琐了。
多谢！

烟消云_uXWx3 · 发表于 2020-4-1 09:25:26

434939575 发表于 2020-3-31 16:29

多谢，已解决。

Lisphk · 发表于 2020-4-1 12:33:22

烟消云_uXWx3 发表于 2020-4-1 09:24
大佬，能给看一下这个程序吗？
前面已经求出A=1，B=2，S=1，X=3，Y=4,B=5
输出程序：

如果都是整数
(princ (strcat (itoa a) "+" (itoa y) "+" (itoa s) "*" (itoa x) "+" (itoa y) "+" (itoa b)))

烟消云_uXWx3 · 发表于 2020-4-1 17:20:48

Lisphk 发表于 2020-4-1 12:33
如果都是整数
(princ (strcat (itoa a) "+" (itoa y) "+" (itoa s) "*" (itoa x) "+" (itoa y) "+" (ito ...

谢谢，已解决

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

[求助] 关于polar函数

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