块内层归0层

sharetow · 发表于 2021-9-12 09:57:55

本帖最后由 sharetow 于 2021-9-17 13:32 编辑

将块内元素全部改为0层，颜色byblock
命令：C0

shcvip · 发表于 2022-8-29 20:26:17

3278 发表于 2022-8-29 19:33
是写错了么，是bylayer么。(vla-put-color dxl acBlock)改为(vla-put-color dxl acBylayer)

弄好了，谢谢前辈。

sharetow · 发表于 2022-8-21 08:52:48

shcvip 发表于 2022-8-20 19:53
可否除了某个特性的图层不改，比如中心层，其他的都改为0层

中心层不改变

惜惜2 · 发表于 2024-9-2 14:53:38

(defun C:C0(/ dxl km)
(if (= (getvar "cmdactive") 1) (ssget "x" ) (sssetfirst nil (ssget "x" )))
(and
(setq dxl (car(l-vldxl(ssget "_:S

" '((0 . "INSERT"))))))
(setq km (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
(l-c0 dxl km)
(not(vla-Update dxl))
(vlax-release-object km)
)
(princ)
)[/code]
;
(defun l-c0(dxl km)
(vla-put-layer dxl "0")
(vla-put-color dxl acbylayer)
(if (= "AcDbBlockReference" (vlax-get-property dxl "objectname"))
(progn
(vlax-for x (vla-item km (vla-get-name dxl))
(l-c0 x km)
)
(if(=(vla-get-HasAttributes dxl):vlax-true)
(vl-cmdf "AttSync" "n" (vla-get-name dxl))
)
)
)T
)[/code]
;
(defun l-vldxl(dx / dxl i)
(if (null dx)
(setq dxl nil)
(progn
(setq i 0 dxl nil)
(sssetfirst nil nil)
(repeat (sslength dx)
(setq dxl (cons (vlax-ename->vla-object (ssname dx i)) dxl) i (1+ i))
)
)
)
dxl
)[/code]

大佬，其余选中的图元也能归置0层吗？这个需要怎么修改

dasha321 · 发表于 2021-9-12 11:16:33

怎么没有回复呢

cghdy · 发表于 2021-9-13 10:11:04

缺函数了no function definition: L-VLDXL

nsh935 · 发表于 2022-7-28 08:49:33

谢谢分享！！！

szhorse · 发表于 2022-8-3 12:32:01

感谢，今天终于偶遇到了

Dea25 · 发表于 2022-8-5 11:29:40

好用，顶一下

shcvip · 发表于 2022-8-20 19:53:32

可否除了某个特性的图层不改，比如中心层，其他的都改为0层

shcvip · 发表于 2022-8-26 22:09:36

本帖最后由 shcvip 于 2022-8-26 22:36 编辑

sharetow 发表于 2022-8-21 08:52
中心层不改变

在变成0层的时候，可否将颜色改为 byblock 而不是byblock

转发改块的颜色
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=184659&fromuid=7322683
(出处: 明经CAD社区)

复制代码

3278 · 发表于 2022-8-29 19:33:11

shcvip 发表于 2022-8-26 22:09
在变成0层的时候，可否将颜色改为 byblock 而不是byblock

是写错了么，是bylayer么。(vla-put-color dxl acBlock)改为(vla-put-color dxl acBylayer)

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

块内层归0层

本帖子中包含更多资源

评分

评分

本帖子中包含更多资源

点评

点评