[LISP函数]：在vl里面如何用polar？

urljit

如果是vl里的变体alpt，如何利用polar函数呢？如下所示？可是不对呀，帮帮忙吧。
(setq al_pt(vlax-3d-point(polar (vlax-safearray->list al_pt) (* 1.5 pi) 70)))

Free-Lancer

最初由 urljit 发布
[B]如果是vl里的变体alpt，如何利用polar函数呢？如下所示？可是不对呀，帮帮忙吧。
(setq al_pt(vlax-3d-point(polar (vlax-safearray->list al_pt) (* 1.5 pi) 70))) [/B]

2. 
   
3. (defun c:test (/ p p1 ac op)
   
4.   (if (setq p (getpoint "\nFirst Point: "))
   
5.     (progn
   
6.       (setq p1 (vla-polarpoint
   
7.                  (vla-get-utility
   
8.                    (setq ac
   
9.                           (vla-get-activedocument (vlax-get-acad-object))
   
10.                    )
    
11.                  )
    
12.                  (setq op (vlax-3d-point p))
    
13.                  0.
    
14.                  10.
    
15.                )
    
16.       )
    
17.       (vla-addline (vla-get-modelspace ac) op p1)
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )
    

<br /> (defun c:test (/ p p1 ac op)<br />   (if (setq p (getpoint "\nFirst Point: "))<br />     (progn<br />       (setq p1 (vla-polarpoint<br />                  (vla-get-utility<br />                    (setq ac<br />                           (vla-get-activedocument (vlax-get-acad-object))<br />                    )<br />                  )<br />                  (setq op (vlax-3d-point p))<br />                  0.<br />                  10.<br />                )<br />       )<br />       (vla-addline (vla-get-modelspace ac) op p1)<br />     )<br />   )<br />   (princ)<br /> )<br />

PolarPoint

Gets the point at a specified angle and distance from a given point.

Signature

RetVal = PolarPoint(Point, Angle, Distance)

Object

Utility
The object or objects this method applies to.

Point

Variant (three-element array of doubles); input-only
The 3D WCS coordinates specifying the start point.

Angle

Double; input-only
The angle in radians.

Distance

Double; input-only
The distance in current units.

RetVal

Variant (three-element array of doubles)
The 3D WCS coordinates at the specified angle and distance from a given point.

urljit

原来是val-polarpoint函数能解决问题呀！
free-lancer:你是怎样知道这个函数的呢？或者说我从哪里才能知道用哪个函数呢？给我个email吧。联系一下好吗？