求助 外部插入图块动态显示缩放

Gu_xl

回复 啵浪鼓 的帖子

第1个问题，把下面一句的"："改为":"试试，可能是cad本身的问题！
(setq name (getstring (strcat "\n 输入要插入的图框名称<" name ">:")))
第二个问题，我没发现有这种情况，不知是什么原因,你试着如下修改试试：
在函数TK 开始添加：(setq ms (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
修改如下两句代码：
(command "insert" tkname pp1 1 1 0)

      ==》
(vla-InsertBlock ms (vlax-3d-point pp1) tkname 1 1 1 0)
(command "insert" tkname pp1 xscale yscale rot)
    ==》

(vla-InsertBlock ms (vlax-3d-point pp1) tkname xscale yscale 1  rot)

第三个问题，要一点都不闪，很难哦！可以修改这句(setq d (* 0.005 (getvar "viewsize")))，为(setq d (* 0.01 (getvar "viewsize")))增大间距，减小生成和删除次数，可能会好点！
8楼代码已按上述修改！

jfxia

        下了源码，好用的谢，

xyp1964

chpmould

xyp1964 发表于 2011-5-14 15:21

X版是什么原理实现的啊...

啵浪鼓

回复 Gu_xl 的帖子

现在好多了没那么闪了，不过改过的程序，另一方向生成不再是90度了，而是116.6202度了?

Gu_xl

回复 啵浪鼓 的帖子

vla-insertblock 角度参数rot应是弧度！疏忽了，8楼代码已改！

啵浪鼓

回复 Gu_xl 的帖子

谢谢，现在挺好了，就是不能记住上一次的选择，(defun c:tk (/ name 取消。
只支持内部已有块，不支持cad支持路径下的外部块

命令:  TK
输入要插入的图框名称<>:a4 图框插入角点：; 错误: Automation 错误。
文件处理器错误

zxjing

留个爪印

Gu_xl

回复 啵浪鼓 的帖子

插入块后加入该代码：
(setvar "insname") name)
就可自动记住上次插入块名

啵浪鼓

回复 Gu_xl 的帖子

如果要插入外部块需要改些哪里?