用一个以上blo替换

jevrem1 · 发表于 2022-7-5 22:19:26

是否可以在图形中选择多个块，而不是设置一个块，选择插入。草图中存在所需的块。我会输入他们的名字。

Hansl · 发表于 2022-7-5 22:39:47

这可能吗？
http://www.ellenfinkelstein.com/acadblog/replace-one-block-with-another/

jevrem1 · 发表于 2022-7-5 23:04:03

还有一个问题。我添加了一个点来插入块，如果可以，请删除插入块下方的项目。

jevrem1 · 发表于 2022-7-5 23:13:15

我将这两种语言组合成一个Lisp。我做了一些小的修改，为我工作。我一次选择都没能得到我的区块。这一切都有可能缩短。

（定义c:setnb（/ss adoc pt\U lst center blk*error*bi bname bpat）
;;;选定图元到命名块
（提示“\n-----选择一组块------:”）
（setq bpat“块-”）
（defun*错误*（msg）
（vla endundomark adoc）
（普林斯消息）
（普林斯）
) ;_ defun结束
（vl load com）
（vla startundomark）
（setq adoc（vla get activedocument（vlax get acad object）））
) ;_ vla StartUndoMark结束
（如果（不是）（vl-catch-all-error-p
（vl catch all apply’（λ（）（setq ss（ssget“_：L”）））
) ;_ vl-catch-all-error-p结束
) ;_ not结束
（程序
（setq）
ss（mapcar“vlax ename->vla对象
（vl remove if“listp（mapcar”cadr（ssnamex ss）））
) ;_ mapcar结束
pt\U lst（应用“附加
（地图车
（λ（x/minp-maxp）
（vla getboundingbox x“minp”maxp）
（列表（vlax safearray->list minp）
（vlax safearray->list maxp）
) ;_ 追加结束
) ;_ lambda结束
不锈钢
) ;_ mapcar结束
) ;_ 追加结束
中心（mapcar’（λ（a b）（/（+a b）2））
（列表（应用“min（mapcar”car pt\u lst））
（应用“min（mapcar”cadr pt\U lst））
（应用“min（mapcar”caddr pt\U lst））
) ;_ 列表结束
（列表（应用“max（mapcar）”car pt\U lst）
（应用“max（mapcar”cadr pt\U lst））
（应用“max（mapcar”caddr pt\U lst））
) ;_ 列表结束
) ;_ mapcar结束
B名称
（程序
（setq bi 0）
（while（tblsearch“BLOCK”（setq bname（strcat bpat）（itoa（setq bi（1+bi 107;）Ю）Ю））））
bname）
blk（vla add（vla get blocks adoc）
（vlax-3d-点中心）
B名称
) ;_ vla添加结束
) ;_ setq结束
（vla copyobjects
adoc公司
（vlax make变体
（vlax安全阵列填充
（vlax make safearray vlax vbobject（cons 0（1-（length ss）））
不锈钢
) ;_ vlax安全阵列填充结束
) ;_ vlax make变体结束
黑色
) ;_ vla copyobjects结束
（vla插入块
（vla objectidtoobject adoc（vla get ownerid（car ss）））
（vlax-3d-点中心）
（vla get name blk）
0.8                ;比例x
0.8                ;比例y
0.8                ;缩放z
0.0                ;旋转
) ;_ vla插入块末端
（mapcar’vla擦除ss）
) ;_ 结束和
) ;_ if结束
（vla endundomark adoc）
（普林斯）
) ;_ defun结束
（setvar“clayer”“MYLAYER”）

（定义C:CB（）
（提示“\n------再次成为块的选择性组------:”）
（setq ss（ssget））
（setq索引0）
（setvar“clayer”“MYLAYER”）
（重复（sslength ss）
（setq e（entget（ssname ss index）））
（setq as（assoc 2 e））
（setq e（subst（cons 2“MYBLOCKNAME”）作为e））
（entmod e）
（setq指数（+1指数））
)
（普林斯）
)
（defun c:lispEcho（）
（c:setnb）
（c:cb）
（普林斯）
)

SLW210 · 发表于 2022-7-5 23:23:00

请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。

[编程交流] 用一个以上blo替换

发表回复

精选推荐