套图框和转换图框

muai2010

sowin 发表于 2023-9-9 21:18
正常啊，其他几个也用不上

其他我搞好了，那个图框 lsp中 右边矩形转矩形图框和汉子图框，我这边用不了了

刚开始

不错不错，比那个收二个币的还好用，感谢分享。

shcvip

出来的图框是如何建立的？
(vla-insertblock dxjh (vlax-3d-point (list 0 0 ));插入图块和插入点
                (findfile "hztk.dwg") 1 1 1 0)

统一网名

shcvip 发表于 2023-9-11 22:09
出来的图框是如何建立的？
(vla-insertblock dxjh (vlax-3d-point (list 0 0 ));插入图块和插入点
                (fin ...

用  wblock  命令

lvanhui111

挺好的程序，提个建议，插入块的时候比例最好做各取整。

戏男

很适用啊，经常套图框

戏男

套图框怎么全是横向图框啊，有时需要套竖向的图框

统一网名

lvanhui111 发表于 2023-9-17 20:49
挺好的程序，提个建议，插入块的时候比例最好做各取整。

有需要了自己修改一下，这个是比较随意的简单套框。

统一网名

戏男 发表于 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"))
最后调整一下插入的比例即可。

zixin51

可以让闭合的多段线转成图框吗?
图框可以是非短形