沐风论坛
标题:
vla-add函数建立UCS不稳定/command函数建立UCS如何用函数进行命名
[打印本页]
作者:
矿工
时间:
2013-6-11 12:14
标题:
vla-add函数建立UCS不稳定/command函数建立UCS如何用函数进行命名
(1)我用(vla-add Object origin Xaxispoint Yaxispoint Name)函数建立的坐标系,使用时很不稳定,有时会出现UCS X 轴与 Y 轴不垂直,比如下面的代码:
(defun c:myucs1()
(vl-load-com)
(setq myObj (VLAX-Get-ACAD-Object)
mydoc (VLA-Get-ActiveDocument myObj)
UCSSel(vla-get-UserCoordinateSystems mydoc) )
(setq pto (getpoint "\n请指定原点:"))
(setq ptx (getpoint pto "\n请指定正X轴上一点:"))
(setq anglex (angle pto ptx))
(setq pty (polar pto (+ anglex (* pi 0.5)) 1))
(setq myucs (vla-add
UCSSel
(vlax-3d-point (trans pto 0 1))
(vlax-3d-point (trans ptx 0 1))
(vlax-3d-point (trans pty 0 1))
"myucs"
)
)
(vla-put-activeucs mydoc myucs)
)
不知道是不是浮点运算误差引起的,那么有什么方法消除吗;
(2)同样在使用(vla-put-XVector Object value)或(vla-put-XVector Object value)仅改变ucs坐标系X或Y方向也同样会出现类似情况;
(3)另外不使用vla函数直接用(command "_ucs" "3" pto ptx pty)建立的坐标系如何用函数命名坐标系。
欢迎光临 沐风论坛 (https://bbs.mfcad.com/)
沐风网 X3.1