套图框和转换图框

统一网名

代码是通过学习自己拼凑的，如果有侵权请联系删除。


功能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 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 16:16
第一步先用   B 命令把你的图框成块，第二步把  图框块用  WB  保存为外部块放在 cad可搜索的路径下即可 ...

我知道怎么用了，但是有个问题，我套上去，图框感觉是放大了100倍，中间的很小的那个是被套的图，但是我套矩形图框就不会有这个问题，

另外，转图框会提示参数类型错误: lselsetp nil

帮忙看下怎么弄

18112600842

大哥，能整个使用说明不

; 错误: ActiveX 服务器返回错误: 非选择性的参数。

loveu515

感谢分享

潘成祥2015

现在都是自动图框了

18112600842

潘成祥2015 发表于 2023-9-7 20:10
现在都是自动图框了

大佬发个出来呢

mashanjie

潘成祥2015 发表于 2023-9-7 20:10
现在都是自动图框了

大佬来个自动图框，正需要这种按比例的

潘成祥2015

18112600842 发表于 2023-9-7 20:39
大佬发个出来呢

这个是我单独定制的，也花了作者好些时间，应一些朋友喜欢已发在群里了，做了些少许的收费，也是希望作者不断的扩展出更多实用好用的功能，有兴趣可以进群635317517，关于制图如何在工作中提高工作便利，减少不必要的重复的基础性动作与劳动强度，在有必要的时候，让作者动一动手指，虽然业余，对我们来说却也足够专业了，需要单独定制的可以找群主，只是因为其比较忙，后续进展比较慢

p-3-ianlcc

运行第一个“汉子图框”
出现错误的消息：
指令: TK
Application Error: 2 :- ActiveX 服务器回复一个错误消息: Parameter not optional

统一网名

p-3-ianlcc 发表于 2023-9-8 09:22
运行第一个“汉子图框”
出现错误的消息：
指令: TK

汉子图框的是个文件名为 hztk.dwg 的外部块，你改成你的图框试一下

muai2010

统一网名 发表于 2023-9-8 09:48
汉子图框的是个文件名为 hztk.dwg 的外部块，你改成你的图框试一下

hztk.dwg 外部块 路径怎么修改