非选择集图层关闭【20211204·优化更新】【1205·再次更新】

masterlong · 发表于 2020-8-2 21:29:46

要学会把命令行的错误提示截图传上来

magicheno · 发表于 2020-8-2 21:59:24

masterlong 发表于 2020-8-2 21:29
要学会把命令行的错误提示截图传上来

错误: no function definition: DXF 都是图层全关了的

masterlong · 发表于 2020-8-3 09:22:20

;999公共函数
;;dxf  获取图元某个dxf组码（内参不限种类顺序：：： n ent [entget ent] ）
(defun dxf( n ent / temp tmp )
(if (/= (type n) 'int)
(setq temp ent
ent n
n temp
)
)
(if (= (type ent) 'ENAME)
(setq temp (entget ent))
(setq temp ent)
)
(if (= n 62)
(if (setq tmp (assoc n temp))  (cdr tmp)  256)
(cdr (assoc n temp))
)
)

(vl-load-com)
(setq *ent2obj*       vlax-Ename->Vla-Object
*obj2ent*       vlax-vla-object->ename
*acad*    (vlax-get-acad-object)
*doc* (vla-get-ActiveDocument *acad*)
*LAYERS* (vla-get-Layers *doc*)
)

magicheno · 发表于 2020-8-3 13:19:57

masterlong 发表于 2020-8-3 09:22
;999公共函数
;;dxf 获取图元某个dxf组码（内参不限种类顺序：：： n ent [entget ent] ）
(defun dxf( ...

大侠，新的可以用了，不过整体试了下，反而不支持嵌套块了

masterlong · 发表于 2020-8-3 15:52:20

本帖最后由 masterlong 于 2020-8-3 15:55 编辑

再试试

magicheno · 发表于 2020-8-3 16:49:39

masterlong 发表于 2020-8-3 15:52
再试试

这个可以了大侠，0层默认不打开，要怎么改改呢

magicheno · 发表于 2020-8-4 19:37:54

本帖最后由 magicheno 于 2020-8-4 19:39 编辑

masterlong 发表于 2020-8-3 15:52
再试试

我在后面单独加了command给他关掉了

(setq oldlay (getvar "Clayer"))
(setvar "clayer" "W-DIM" )
(command "layer")
(command "off" "0" )
(command"")
(setvar "Clayer" oldlay)

masterlong · 发表于 2020-8-7 16:25:21

0层并不是默认打开
而是你的图块里的图元为0层

funny64 · 发表于 2021-3-10 11:02:15

会卡死，大侠改一下

masterlong · 发表于 2021-3-10 15:08:41

穿透模式
块要遍历每个图元提取图层信息
遇到超大图块肯定慢
卡死也是正常的

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

[源码] 非选择集图层关闭【20211204·优化更新】【1205·再次更新】

本帖子中包含更多资源

本帖子中包含更多资源