套图框和转换图框
本帖最后由 统一网名 于 2023-9-7 20:51 编辑代码是通过学习自己拼凑的，如果有侵权请联系删除。
功能1 套指定图框，2是套矩形框，3是把矩形转换成图框
刚才发现少了个函数，现在补上。
[*];获取矩形5点
[*];dxname 对象名
[*];输出 d1 d2 d3 d4 zxd
[*];点顺序 左下 右下 右上 左上 中心点
[*](defun get-juxinwd (dxname / n dxf lst)
[*](setq dxf (entget dxname));
[*](foreach n dxf
[*] (if (= (car n) 10)(setq lst (cons (cdr n) lst)))
[*]);取得柱子的4顶点
[*](setq
[*] d1 (nth 0 lst)
[*] d2 (nth 1 lst)
[*] d3 (nth 2 lst)
[*] d4 (nth 3 lst)
[*]);矩形4个顶点坐标
[*](setq zxd (list (* 0.5(+ (car d2)(car d4)))(* 0.5 (+ (cadr d2) (cadr d4))) 0));
[*])
本帖最后由 统一网名 于 2023-9-18 16:03 编辑
戏男 发表于 2023-9-18 10:02
套图框怎么全是横向图框啊，有时需要套竖向的图框
套框是以图框的中心为基点来套的，可以参照套矩形框的方法改一下，矩形框有竖向的。
新建一个 竖框 hztks，然后更改一下 tkcrk 函数
[*](defun tkcrk (/ tkdx jhdx dxjh kuai);插入点 0 0
[*](vl-load-com)
[*](setq tkdx (vlax-get-acad-object));检查图块对象
[*](setq jhdx (vla-get-activedocument tkdx));激活图块对象
[*](setq dxjh (vla-get-modelspace jhdx));获得对象集合
[*](vla-insertblock dxjh (vlax-3d-point (list 0 0 ));插入图块和插入点
[*] (findfile "hztk.dwg") 1 1 1 0
[*]);要插入的图块名称。
[*](vla-insertblock dxjh (vlax-3d-point (list 0 0 ));插入图块和插入点
[*] (findfile "hztks.dwg") 1 1 1 0
[*]);要插入的图块名称。
[*])
再在原来第 73行那里 插入代码 (if(and(= lx 0)(> disy disx))(setq klx "hztks"))
最后调整一下插入的比例即可。
sowin 发表于 2023-9-9 08:41
楼主这个图框
[*]改好了，修改一行代码，然后你把hztk.dwg 放到替换你原来的文件即可。
[*]图框不居中可能有2种情况，1是图框的基点不在中心，可以通过调整图框基点来改正
[*]2是还有一种是图有外露部分，这是修改下边这行代码来改正，我原来的代码不知是咋考虑的套框比例是0.98，
[*]若有图外露的可以把0.98加大到1.1或1.2直到能全部套住为止。
[*]原代码 (if (= lx 0)(setq sc (* 0.98 acx)));汉子图框比例
[*]
[*]修正后 (if (= lx 0)(setq sc (* 1.2 acx)));汉子图框比例
本帖最后由 muai2010 于 2023-9-9 17:48 编辑
统一网名 发表于 2023-9-9 16:16
第一步先用 B 命令把你的图框成块，第二步把图框块用WB保存为外部块放在 cad可搜索的路径下即可 ...
我知道怎么用了，但是有个问题，我套上去，图框感觉是放大了100倍，中间的很小的那个是被套的图，但是我套矩形图框就不会有这个问题，
另外，转图框会提示参数类型错误: lselsetp nil
帮忙看下怎么弄
大哥，能整个使用说明不
; 错误: ActiveX 服务器返回错误: 非选择性的参数。 感谢分享 本帖最后由 潘成祥2015 于 2023-9-7 20:11 编辑
现在都是自动图框了 潘成祥2015 发表于 2023-9-7 20:10
现在都是自动图框了
大佬发个出来呢 潘成祥2015 发表于 2023-9-7 20:10
现在都是自动图框了
大佬来个自动图框，正需要这种按比例的 18112600842 发表于 2023-9-7 20:39
大佬发个出来呢
这个是我单独定制的，也花了作者好些时间，应一些朋友喜欢已发在群里了，做了些少许的收费，也是希望作者不断的扩展出更多实用好用的功能，有兴趣可以进群635317517，关于制图如何在工作中提高工作便利，减少不必要的重复的基础性动作与劳动强度，在有必要的时候，让作者动一动手指，虽然业余，对我们来说却也足够专业了，需要单独定制的可以找群主，只是因为其比较忙，后续进展比较慢 运行第一个“汉子图框”
出现错误的消息：
指令: TK
Application Error: 2 :- ActiveX 服务器回复一个错误消息: Parameter not optional p-3-ianlcc 发表于 2023-9-8 09:22
运行第一个“汉子图框”
出现错误的消息：
指令: TK
汉子图框的是个文件名为 hztk.dwg 的外部块，你改成你的图框试一下 统一网名 发表于 2023-9-8 09:48
汉子图框的是个文件名为 hztk.dwg 的外部块，你改成你的图框试一下
hztk.dwg 外部块 路径怎么修改