[LISP]在图纸上自动标注相对于基点的其他点的坐标值

zemehua

如果已经知道建筑总平面图上的一个基点的坐标，如何快速给总平面上的各个单体定位呢？需要在图纸上自动标注相对于基点的其他点的坐标值。

BDYCAD

用下面的這個涵數吧.

Returns the UCS 3D point at a specified angle and distance from a point

(polar pt ang dist)

Arguments

pt

A 2D or 3D point.

ang

An angle expressed in radians relative to the world X axis. Angles increase in the counterclockwise direction, independent of the current construction plane.

dist

Distance from the specified pt.

Return Values

A 2D or 3D point, depending on the type of point specified by pt.

Examples

Supplying a 3D point to polar:

Command: (polar '(1 1 3.5) 0.785398 1.414214)

(2.0 2.0 3.5)

Supplying a 2D point to polar:

Command: (polar '(1 1) 0.785398 1.414214)

(2.0 2.0)

zemehua

谢谢斑竹！