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

小妹丁 · 发表于 2004-5-25 19:32:00

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

nobed22muo5.jpg

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

alin · 发表于 2004-5-25 21:30:00

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

cqnj023 · 发表于 2004-5-25 23:51:00

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

小妹丁 · 发表于 2004-5-26 20:54:00

二楼的方法，位置正确，方向不正确。三楼的办法好。
但是，只要是用属性的方式的LISP均会出错，能不能自动判别UCS已改变？并按改变后的坐标系统正确运行？
比如以下程序，不知如何办才好：

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:cu2ozjtjit3.LSP
下载次数:0 文件大小:569 Bytes 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

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

cqnj023 · 发表于 2004-5-27 14:06:00

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

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

发表回复

精选推荐

浏览过的版块