如何实现嵌套块

szygyue · 发表于 2015-1-31 13:35

;;将选择块内实体修改至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-1-31 14:03

http://bbs.xdcad.net/thread-667547-1-1.html

szygyue · 发表于 2015-1-31 14:41

这个看了，对语言刚接触，不是太懂

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

[提问] 如何实现嵌套块

相关帖子