关于polar函数用法

gc666666

想通过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 "")
还请大佬们指点

李钊伟2012

有很多方法的其实，就是体现你算法能力的问题。(setq "cmdecho" 0)    (setq pc (polar (polar pa 0 l ) (/ pi 2) h))    (command "rectang" pa pc "") (princ)；画出线框

dunkel

你上面的那个 command 绘制的也不对吧，应该只是绘制了个三角形。
pc 就是 pa 点 x 方向偏移 l y 方向偏移 h，如果是平面的，或可 (setq pc (list (+ (car pa) l) (+ (cadr pa) h))) 不过，这样做意义也不大。

gc666666

dunkel 发表于 2020-3-31 11:10
你上面的那个 command 绘制的也不对吧，应该只是绘制了个三角形。
pc 就是 pa 点 x 方向偏移 l y 方向偏移 ...

多谢。。。。。。。。。。。

李钊伟2012

建议你好好学习基础的操作和函数，实现功能，然后可以把帖子删除了

gc666666

李钊伟2012 发表于 2020-4-2 23:57
建议你好好学习基础的操作和函数，实现功能，然后可以把帖子删除了

多谢，年前闲的时候自学了，年后公司忙起来了，只能现学现卖了

gc666666

李钊伟2012 发表于 2020-3-31 10:21
有很多方法的其实，就是体现你算法能力的问题。(setq "cmdecho" 0)    (setq pc (polar (polar pa 0 l ) (/ ...

大佬能给看一下程序吗？搞了一下午，没整明白
http://bbs.mjtd.com/thread-181267-1-1.html

YueFeng

点位偏移计算，可以用mapcar