sowin 发表于 2023-9-9 21:18
正常啊，其他几个也用不上
其他我搞好了，那个图框 lsp中 右边矩形转矩形图框和汉子图框，我这边用不了了
不错不错，比那个收二个币的还好用，感谢分享。
出来的图框是如何建立的？
(vla-insertblock dxjh (vlax-3d-point (list 0 0 ));插入图块和插入点
(findfile "hztk.dwg") 1 1 1 0)
本帖最后由 统一网名 于 2023-9-12 20:07 编辑
shcvip 发表于 2023-9-11 22:09
出来的图框是如何建立的？
(vla-insertblock dxjh (vlax-3d-point (list 0 0 ));插入图块和插入点
(fin ...
用wblock命令
挺好的程序，提个建议，插入块的时候比例最好做各取整。
很适用啊，经常套图框
套图框怎么全是横向图框啊，有时需要套竖向的图框
lvanhui111 发表于 2023-9-17 20:49
挺好的程序，提个建议，插入块的时候比例最好做各取整。
有需要了自己修改一下，这个是比较随意的简单套框。
本帖最后由 统一网名 于 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"))
最后调整一下插入的比例即可。
可以让闭合的多段线转成图框吗?
图框可以是非短形