LISP用户UCS相对坐标绝对坐标

  • A+
所属分类:CAD二次开发

有的时候使用lisp编写一个小程序,需要用到相对坐标,也就是说用户移动过坐标,读出的数和绝对的对不上,数据使用的时候就会错位,解决办法就是可以把当前坐标还原到绝对坐标,在把坐标还原到用户坐标,也可以通过计算的到当前ucs坐标系的坐标点,通过计算的到想要的值。

下面使用系统变量读取出当前坐标系的位置点。

(setq UCS(getvar "ucsorg"));ucs坐标位置点

(setq UCS_Y (getvar "UCSORG")) ;ucs坐标位置点
(command "_UCS" "W");还原世界坐标

复制

都得到了当前坐标点,还得不到当前用户ucs的绝坐标吗?直接用当前坐标值加上目标点的值,就是当前用户的决定值了!!!

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: