跪求大神！如何一键插入图纸中所有的块按1000间隔依次整列排好
跪求大神！如何一键插入图纸中所有的块按1000间隔依次整列排好本帖最后由 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 17:13 编辑
wutao8282 发表于 2022-4-27 13:04
自己不会才求助的！就差最后一点了。求你了，帮帮忙可以吗
更新了，横向间隔 竖向间隔 每行的数量都可以指定了，试试效果如何
2.0
已经修正竖向可以多排了
本帖最后由 wutao8282 于 2022-4-27 10:40 编辑
xj6019 发表于 2022-4-27 10:21
函数头上放一句
(vl-load-com)
CAD2005完整版！ :'( ; 输入NM之后鼠标变成十字，点一下图纸任意卫视提示 :错误: Automation 错误。 参数 bstrName (位于 InsertBlock 中) 无效，好的，谢谢，我试试重装一下CAD 前提你要保证你的每个块的基点都在块上就正常，如果排出来顺序乱七八糟，就说明你自己的块有问题，和本代码无关！！！！！！！！！！！！！！！！！！！！
(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-pointP) 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
全选，排列就行了吧这个。
正常是按I一个一个插入，要求一键插入所有块！并且排列好！ wutao8282 发表于 2022-4-26 23:49
正常是按I一个一个插入，要求一键插入所有块！并且排列好！
你把所有块排好，放到一个图上，想插入的时候，一次插入不就行了？意思就是把所有的块，当成一个块来看待。 xj6019 发表于 2022-4-27 09:01
前提你要保证你的每个块的基点都在块上就正常，如果排出来顺序乱七八糟，就说明你自己的块有问题，和本代码 ...
谢谢分享，点赞 xj6019 发表于 2022-4-27 09:01
前提你要保证你的每个块的基点都在块上就正常，如果排出来顺序乱七八糟，就说明你自己的块有问题，和本代码 ...
块都没有问题！基点都是在图形中心位置。但是还是输入NM命令提示出 错误: no function definition: VLAX-GET-ACAD-OBJECT ，能否帮忙再看一眼 rocking2008 发表于 2022-4-27 08:36
你把所有块排好，放到一个图上，想插入的时候，一次插入不就行了？意思就是把所有的块，当成一个块来看待 ...
就是一块一块放好太麻烦了，块正常是看不到的，图纸是空白的，需要全部插入到图纸上，然后整列出来 wutao8282 发表于 2022-4-27 09:15
就是一块一块放好太麻烦了，块正常是看不到的，图纸是空白的，需要全部插入到图纸上，然后整列出来
函数头上放一句
(vl-load-com)
如果还有提示就是你CAD的问题了吧，这是CAD内置函数，你cad不是精简版的吧，不行就换完整版cad，或者重装一下