harrison-matt 发表于 2022-7-6 09:37:17

我的pol有点问题

全部的
 
我的极函数有一些问题：
 

(setq pre_ang 0)
(setq ang (/ (* 3 pi) 2))
(setq int '(46.8854 43.1495 0.0))
(setq apt_int '(52.8854 49.1495 0.0))
(setq width 6)
(setq ptLst
(mapcar
   '(lambda(x)(trans x 0 1))
        (list
          (setq eli int)
          (setq el1 (polar eli (+ pi pre_ang) (/ width 3.)))
          (setq el2 (polar el1 (+ (/ pi 2) pre_ang) width))
          (setq el3 (polar eli ang (/ width 3.)))
          (setq el4 (polar el3 (+ (/ pi 2) ang) width))
          (setq ela apt_int)
       )
)
)
(mapcar '(lambda (x)(command "point" x)) ptlst)

 
el1和el3没有正确进入。。。

_$
(polar '(46.8854 43.1495 0.0) 3.14159 2.0) ;entered in console
(44.8854 43.1495 0.0) ; return

你知道为什么这对我不起作用吗？
 
谨致问候，
 
马特

harrison-matt 发表于 2022-7-6 10:07:13


(setq ptLst (mapcar
            '(lambda(x)(trans x 0 1))
               (list
                  int
                  (polar int (+ pi pre_ang) (/ width 3.))
                  (polar apt_int (+ pi pre_ang) (+ (/ width 3) width))
                  apt_int
                  (polar int ang (/ width 3.))
                  (polar apt_int ang (+ (/ width 3) width))
                  apt_int )))
(mapcar '(lambda (x)(command "point" x)) ptlst))

 
我简化了代码。。。。仍然无法正常工作。。。

harrison-matt 发表于 2022-7-6 10:13:14

好当我绘制一条多段线时，它起作用，但当我使用点来显示它们时，它不起作用。。。。有什么想法吗？为什么？

Lee Mac 发表于 2022-7-6 10:32:07

考虑一下OSnap-更改：
 
(mapcar '(lambda (x)(command "point" x)) ptlst))
 
收件人：
 
(mapcar '(lambda (x)(command "_.point" "_non" x)) ptlst))

David Bethel 发表于 2022-7-6 10:42:22

 
点总是WCS。
页: [1]
查看完整版本: 我的pol有点问题