szygyue 发表于 2015-1-31 12:57:52

求助 块修改至0层 如何让此插件支持嵌套块

;;将选择块内实体修改至0层颜色不变
(defun c:b0 (/ ss ssl i blocks el e bn bl)
(if (setq ss (ssget '((0 . "insert"))))
    (progn
      (setq ssl (sslength ss)
            i -1
            blocks (vla-get-blocks (vla-get-activedocument
                                                         (vlax-get-acad-object)
                                 )
                   )
      )
      (repeat ssl
      (setq e (ssname ss (setq i (1+ i)))
            el (entget e)
            bn (cdr (assoc 2 el))
      )
      (if (not (vl-position bn bl))
          (progn
            (vlax-for ent (vla-item blocks bn) (vla-put-layer ent "0")
            )          ;
          )
      )
      )
    )
)
(princ)
)

鱼与熊掌 发表于 2015-2-8 16:02:06

不喜欢可以不下载 千万不要勉强~

LIULISHENG 发表于 2020-2-2 10:32:12

路过支持一下

zj20190405 发表于 2020-9-20 07:35:53

大哥，我想点选图块，如何修改

cafa 发表于 2020-11-13 17:58:25

本帖最后由 cafa 于 2020-11-13 17:59 编辑


不喜欢可以不下载 千万不要勉强~

http://bbs.mjtd.com/static/image/filetype/lsp.gifblock_该图层改色.lsp
1.52 KB, 下载次数: 12
售价: 2 个明经币[记录]



选择对象:Error: no function definition: ZVLA
执行block改图层改色.lsp选择对象后提示错误，请问如何解决

spp_wall 发表于 2024-9-12 14:42:55

鱼与熊掌 发表于 2015-2-8 16:02
不喜欢可以不下载 千万不要勉强~

缺少函数，ZVLA
页: [1]
查看完整版本: 求助 块修改至0层 如何让此插件支持嵌套块