跪求大神！如何一键插入图纸中所有的块按1000间隔依次整列排好

wutao8282 · 发表于 2022-4-26 21:07:43

vitalgg · 发表于 2022-4-27 11:02:22

本帖最后由 vitalgg 于 2022-4-27 11:09 编辑

插件到 http://atlisp.cn 安装 @lisp ，然后在应用管理中选中 @lisp块操作

会把所有块都插到图中。如尺寸界线的块。

(defun @block:insert-all (/ pt0 pt1 ang dist blk)
(@:help (strcat "块操作 -> 插所有块\n"
" 将当前 dwg 中的所有块插入到从指定点和指定距离排列。"))
(if (and (setq pt0 (getpoint "请输入插入点:"))
(setq pt1 (getpoint pt0 "请输入相对插入点的距离和方向点:"))
(setq ang (angle pt0 pt1)
dist (distance pt0 pt1)))
(progn
(setq blk (tblnext "block" t))
(while blk
(block:insert (cdr (assoc 2 blk)) "" pt0 0 1)
(setq pt0 (polar pt0 ang dist))
(setq blk (tblnext "block"))))))

函数 block:insert 定义代码在 http://atlisp.cn/function/block:insert

xj6019 · 发表于 2022-4-27 16:41:29

本帖最后由 xj6019 于 2022-4-27 17:13 编辑

wutao8282 发表于 2022-4-27 13:04
自己不会才求助的！就差最后一点了。求你了，帮帮忙可以吗

更新了，横向间隔竖向间隔每行的数量都可以指定了，试试效果如何

2.0
已经修正竖向可以多排了

wutao8282 · 发表于 2022-4-27 10:38:49

本帖最后由 wutao8282 于 2022-4-27 10:40 编辑

xj6019 发表于 2022-4-27 10:21
函数头上放一句
(vl-load-com)

CAD2005完整版！

; 输入NM之后鼠标变成十字，点一下图纸任意卫视提示 :错误: Automation 错误。参数 bstrName (位于 InsertBlock 中) 无效，好的，谢谢，我试试重装一下CAD

xj6019 · 发表于 2022-4-27 09:01:11

前提你要保证你的每个块的基点都在块上就正常，如果排出来顺序乱七八糟，就说明你自己的块有问题，和本代码无关！！！！！！！！！！！！！！！！！！！！

(defun c:NM (/ *acad* *acdocument* *blks* *doc* *docs* *ms* outlst p)
(if(and
   (setq
   *ACAD*  (vlax-get-acad-object)
   *DOC* (vla-get-ActiveDocument *ACAD*)
   *DOCS*  (vla-get-Documents *ACAD*)
   *AcDocument* (vla-get-activedocument *Acad*)
   *MS* (vla-get-modelspace *DOC*)
   *BLKS*  (vla-get-Blocks *DOC*)
   )
   (setq p (getpoint) )
   )
   (mapcar '(lambda(a)
   (if a
   (progn
   (vla-InsertBlock *MS*  (vlax-3D-point  P) a 1. 1. 1. 0.)
   (setq p(polar p 0 1000))
   (princ "\n\n")
   )
   )
   )
(vlax-for obj  *BLKS*  (setq outlst (cons (vlax-get-property obj 'Name) outlst)))
)
)
(princ)
)

rocking2008 · 发表于 2022-4-26 22:24:50

全选，排列就行了吧这个。

wutao8282 · 发表于 2022-4-26 23:49:25

rocking2008 发表于 2022-4-26 22:24
全选，排列就行了吧这个。

正常是按I一个一个插入，要求一键插入所有块！并且排列好！

rocking2008 · 发表于 2022-4-27 08:36:37

wutao8282 发表于 2022-4-26 23:49
正常是按I一个一个插入，要求一键插入所有块！并且排列好！

你把所有块排好，放到一个图上，想插入的时候，一次插入不就行了？意思就是把所有的块，当成一个块来看待。

lxl217114 · 发表于 2022-4-27 09:09:42

xj6019 发表于 2022-4-27 09:01
前提你要保证你的每个块的基点都在块上就正常，如果排出来顺序乱七八糟，就说明你自己的块有问题，和本代码 ...

谢谢分享，点赞

wutao8282 · 发表于 2022-4-27 09:12:55

xj6019 发表于 2022-4-27 09:01
前提你要保证你的每个块的基点都在块上就正常，如果排出来顺序乱七八糟，就说明你自己的块有问题，和本代码 ...

块都没有问题！基点都是在图形中心位置。但是还是输入NM命令提示出错误: no function definition: VLAX-GET-ACAD-OBJECT ，能否帮忙再看一眼

wutao8282 · 发表于 2022-4-27 09:15:37

rocking2008 发表于 2022-4-27 08:36
你把所有块排好，放到一个图上，想插入的时候，一次插入不就行了？意思就是把所有的块，当成一个块来看待 ...

就是一块一块放好太麻烦了，块正常是看不到的，图纸是空白的，需要全部插入到图纸上，然后整列出来

xj6019 · 发表于 2022-4-27 10:21:49

wutao8282 发表于 2022-4-27 09:15
就是一块一块放好太麻烦了，块正常是看不到的，图纸是空白的，需要全部插入到图纸上，然后整列出来

函数头上放一句
(vl-load-com)

如果还有提示就是你CAD的问题了吧，这是CAD内置函数，你cad不是精简版的吧，不行就换完整版cad，或者重装一下

账号		自动登录	找回密码
密码			注册

[提问] 跪求大神！如何一键插入图纸中所有的块按1000间隔依次整列排好

本帖子中包含更多资源

本帖子中包含更多资源