[日积月累]：图块插入点修改程序(ucs适用)

chwen2000 · 发表于 2004-10-4 11:04:40

谢谢！

LUCAS · 发表于 2004-10-4 12:26:25

aidraft:你可能沒有看到這個貼子
http://www.mjtd.com/bbs/dispbbs.asp?BoardID=3&ID=19105

aidraft · 发表于 2004-10-4 16:07:17

看到过啊，alin就是aidraft，正如LUCAS就是龙龙仔，如果没有猜错:)

LUCAS · 发表于 2004-10-4 16:21:36

SORRY!Alin就是aidraft 8-) 記住了

曹杰 · 发表于 2004-10-6 18:04:58

请问楼主Jon Fleming写的转换函数怎么结合你的程序调用呢

梦断江南 · 发表于 2004-10-6 18:30:13

最初由 aidraft 发布
[B]看到过啊，alin就是aidraft，正如LUCAS就是龙龙仔，如果没有猜错:) [/B]

哈哈,原来如比啊....怪不得

aidraft · 发表于 2004-10-6 19:58:54

最初由曹杰发布
[B]请问楼主Jon Fleming写的转换函数怎么结合你的程序调用呢 [/B]

基本原理：
1。选取块参照和新插入点(WCS下)。
2。用BlockToInsertSetup建立该块参照与块定义之间的“转换表”---XformSpec
3。用InsertToBlockXform将新旧两个插入点变换到块定义的坐标系中。
4。重定义图块：把块定义中所有图元从新插入点( 变换后)移动至旧插入点(变换后)。
(注：此时图中的所有块参照会因为重定义而移动)
5。搜索图中所有块参照，对每个块参照作如下6-8处理，以使其位置复原。
6。用BlockToInsertSetup建立该块参照与块定义之间的“转换表”---XformSpec
7。用BlockToInsertXform将新旧两个插入点(第4步变换后的)从块定义变换到当前块参照的坐标系中。
8. 把块参照和attributes(如果有的话)从旧插入点(第7步变换后的)移动至新插入点(第7步变换后的).

哈哈,原来如比啊....怪不得

我是瞎猜的，他们俩的字体都比较大，呵呵...

梦断江南 · 发表于 2004-10-7 16:10:38

aidraft 改一改,让程序支持ucs吧:)

LUCAS · 发表于 2004-10-8 07:58:10

alin:直接改ucs不太好吧!用trans會好一點!

andyhua5240 · 发表于 2004-10-8 08:54:01

最初由 aidraft 发布
[B]
基本原理：
1。选取块参照和新插入点(WCS下)。
2。用BlockToInsertSetup建立该块参照与块定义之间的“... [/B]

斑竹在1楼有三个程序代码，我用的是第一个，在CAD2004中加载，输入AB，且无法使用。不知道为什么？
是不是我加载错了代码呀？
请指教，谢谢！应该加载哪一个代码？
谢谢！

aidraft · 发表于 2004-10-8 09:24:10

最初由 andyhua5240 发布
[B]

斑竹在1楼有三个程序代码，我用的是第一个，在... [/B]

三个程序都要放在搜索目录下，加载第一个。

Lucas: 图个方便，我是很少用ucs的:-)

andyhua5240 · 发表于 2004-10-8 14:32:56

三个程序都放在搜索路径里，也不知道文件名，文件后缀是不是LSP呀？
斑竹你行行好，做个附件传上来呀？
让我等菜鸟下好吗？
谢谢！

aidraft · 发表于 2004-10-8 15:05:14

第一个是LISP文件什么名字都行。
第二个应是AMEND_BLOCK.DCL
最后一个应是JonFleming.lsp

flowerson · 发表于 2004-10-29 15:46:30

不会怎么用啊？怎么加载啊？能说明一下吗？谢谢！

秋后蚂蚱 · 发表于 2004-10-29 20:51:18

好东西，的确给绘图减少了好多烦事。

账号		自动登录	找回密码
密码			立即注册