几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   有谁知道相对坐标的输入lisp语言怎么写? (http://www.dimcax.com/hust/showthread.php?t=12181)

yang686526 2009-04-26 10:01 PM

有谁知道相对坐标的输入lisp语言怎么写?
 
有谁知道相对坐标的输入lisp语言怎么写?
www.dimcax.com
有谁知道相对坐标的输入lisp语言怎么写?有谁知道相对坐标的输入lisp语言怎么写?
d
viewctr 存储当前视口中视图的中心点。该值用 ucs 坐标表示。
viewsize 按图形单位存储当前视口的高度。
vsmax 存储当前视口虚屏的右上角。该值用 ucs 坐标表示。
vsmin 存储当前视口虚屏的左下角。该值用 ucs 坐标表示。
类似的变量可以计算出相对坐标值 再和绝对坐标进行转行即可
d
看下polar函数。
踅摸
d
或者将坐标与向量相加
(defun @ (pt cec) (mapcar '+ pt cec))
;;(@ (getvar "lastpoint")
'(4 5 0))
;;红色是坐标,蓝色是向量
d
谢谢两位版主的帮忙!
d


所有的时间均为北京时间。 现在的时间是 11:29 PM.