gc666666 发表于 2020-3-31 10:21:04

关于polar函数用法

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


李钊伟2012 发表于 2020-3-31 10:21:05

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

dunkel 发表于 2020-3-31 11:10:12

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

gc666666 发表于 2020-4-1 09:18:35

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

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

李钊伟2012 发表于 2020-4-2 23:57:16

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

gc666666 发表于 2020-4-6 11:56:56

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

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

gc666666 发表于 2020-4-6 19:42:21

李钊伟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 发表于 2020-4-7 11:31:11

点位偏移计算，可以用mapcar
页: [1]
查看完整版本: 关于polar函数用法