如何消除UCS改变带来的影响？

小妹丁

如图，程序是下载的，应用中发现问题。

alin

加两句 (command "ucs" "w")
(B_DRAW_CLINE center radius)
(command "ucs" "p")

cqnj023

将(setq center (cdr (assoc 10 ent)))
改为(setq center （trans (cdr (assoc 10 ent)) 0 1 ))试试

小妹丁

二楼的方法，位置正确，方向不正确。



三楼的办法好。


但是，只要是用属性的方式的LISP均会出错，能不能自动判别UCS已改变？并按改变后的坐标系统正确运行？


比如以下程序，不知如何办才好：



还是按三楼的方法，一个一个去修正？

cqnj023

小妹丁发表于2004-5-26 20:54:00二楼的方法，位置正确，方向不正确。 三楼的办法好。 但是，只要是用属性的方式的LISP均会出错，能不能自动判别UCS已改变？并按改变后的坐标系统正确运行...

"用属性的方式"是什么意思，你的程序中没有看出什么属性的方式呀，好象就是标注文字，是需要确定标注点吗，只须对基准的点进行坐标转换就行了，不必每个都转换，主要是从dxf代码表中提取的坐标为世界坐标。 另外command "text" (polar pt2 (* 0.5 pi) 5.0) 3.5 ang ang) 中的ang中的数据类型是实数，不能作为text命令的文本参数