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 ）
(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 ）
(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

穿透模式
块要遍历每个图元提取图层信息
遇到超大图块肯定慢
卡死也是正常的
页: 1 [2] 3
查看完整版本: 非选择集图层关闭【20211204·优化更新】【1205·再次更新】