获取名称动态块

rodrigo_sjc_sp · 发表于 2022-7-6 04:00:21

如果我尝试获取动态块的名称。我的代码返回“*U65”，但名称是字符串。样品块试验

代码


  (setq selpline (ssget '((0 . "INSERT"))))
  (setq i 0)
  (setq nomeblk "")
  (setq valor_ant "")
  (setq valor "")
  (setq sn "")
  (setq contador 0 ) 
  (repeat (sslength selpline)       
      (setq entblk (ssname selpline i))
      (setq nomeblk (cdr(assoc 2 (entget entblk))))
      (setq layer (cdr(assoc 8 (entget entblk))))
      (print nomeblk)
      (setq i (+ i 1))
)

有什么帮助吗？？

rodrigo_sjc_sp · 发表于 2022-7-6 04:56:07

我找到小费了！

http://forums.augi.com/showthread.php?51593-LISP中是否有动态块的名称

copy


(defun getblockname (blk / res)
 (if blk
   (progn
     (if (= (type blk) 'ename)
       (setq blk (vlax-ename->vla-object blk))
       ) ;_ end of if
     (setq res (if (vlax-property-available-p blk 'effectivename)
                 (vla-get-effectivename blk)
                 (vla-get-name blk)
                 ) ;_ end of if
           ) ;_ end of setq
     ) ;_ end of progn
   ) ;_ end of if
 ) ;_ end of defun