[求助]请教高手一个关于“坐标”的问题。

userzhl

坐标由变成后，下面这段程序就会出错，哪位高手帮忙解决一下？

(SETQ PT1 (GETPOINT "\n请确定起点 :"))
(SETQ PT2 (GETPOINT PT1 "\n请确定终点 :"))
(SETQ PT1 (POLAR PT1 (ANGLE PT2 PT1) 4))
(SETQ PT5 (POLAR PT1 (ANGLE PT1 PT2) 10))
(entmake (list
'(0 . "LINE") '(100 . "AcDbEntity") '(100 . "AcDbLine")
(cons 10 pt1) (cons 11 pt5)
))

userzhl

也就是:在非世界坐标系中标注值的问题。

hb_xiaofen

绘图前把坐标转换成世界坐标就可以了 利用函数(trans pt from to [disp])  用法查看帮助

hb_xiaofen

Translates a point (or a displacement) from one coordinate system to another

(trans pt from to [disp])   

Arguments

pt

A list of three reals that can be interpreted as either a 3D point or a 3D displacement (vector).

from

An integer code, entity name, or 3D extrusion vector identifying the coordinate system in which pt is expressed. The integer code can be one of the following:

0 World (WCS)

1 User (current UCS)

2 If used with code 0 or 1, this indicates the Display Coordinate System (DCS) of the current viewport. When used with code 3, it indicates the DCS of the current model space viewport.

3 Paper space DCS (used only with code 2)

to

An integer code, entity name, or 3D extrusion vector identifying the coordinate system of the returned point. See the from argument for a list of valid integer codes.

disp

If present and is not nil, this argument specifies that pt is to be treated as a 3D displacement rather than as a point.

userzhl

我知道这个，但不知道怎么用呀

byghbcx

加上

(setq pt1 (trans pt1 1 0))
(setq pt5 (trans pt5 1 0))

userzhl

非常感谢byghbcx.

userzhl

还有一个问题，想问大家，为什么在布局空间的视口里执行不了？