有没有好办法对动态图块块名用ssget选择过滤？

秋枫 · 发表于 2010-11-13 14:19:00

动态图块的插入实例，每个一实例用Entget得到的都匿名块。不能直接取得块名。

如果用遍历选择集后处理的办法效率比较低，有没有好一点的高效的办法？

ucuc2003 · 发表于 2022-7-17 00:56:00

;取得块名name
(setq en (car (entsel "\n选择块：")))
(or
   (eq "TCH_BLOCK_INSERT" (cdr (assoc 0 (entget en))))
   (eq "INSERT" (cdr (assoc 0 (entget en))))
   (alert "没有选择块!")
)
(setq xobj (vlax-ename->vla-object en))
(setq name (vlax-get-property xobj 'EffectiveName))

jzh56088 · 发表于 2022-7-8 11:25:00

新手请教，这代码怎么变成可编译的lsp文件呀？

jzh56088 · 发表于 2022-7-8 11:30:00

新手请教下，这代码怎么变成可编译的lsp文件？

carrot1983 · 发表于 2010-11-13 14:54:00

动态图块的出现，是在CAD2006以后的事情了，相信楼主也知道CAD2000以后的visualLISP 函数就一直没有增强。
ssget 函数也一样。

用遍历选择集后处理的办法，效率应该不会低到哪里去。

copy

(defun SSGET-DYNBLK->ENTS (SS NAME / E ENTS N)
  ;; By carrot1983 11/13/10
  (repeat (setq N (sslength SS))
    (and (setq E (ssname SS (setq N (1- N))))
  (setq O (vlax-ename->vla-object E))
  (= (vla-get-isdynamicblock O) :vlax-true)
  (= (vla-get-effectivename O) NAME)
  (setq ENTS (cons E ENTS))
    )
  )
  ENTS
)

(defun C:TT ()
  (setq SS (ssget '((0 . "INSERT"))))
  (setq ENTS (SSGET-DYNBLK->ENTS SS "树 - 英制"))
  (print ENTS)
  (princ)
)

danxingpen · 发表于 2010-11-13 15:32:00

对于编程来说，无名块其实也是一个有名块，只不过他们的名字是系统管理的而已。动态块的选择和选择无名块不一样吗？
(setq tmpp(ssget "x" (list (cons 0 "INSERT")(cons 2 (strcat "`" (vla-get-name (vlax-ename->vla-object(car(entsel "\n选择无名块:")))))))))

zhongys · 发表于 2010-11-13 17:16:00

命令: (cons 2 (strcat "`"((_> (vla-get-name (vlax-ename->vla-object(car(entsel "\n选择无名块:"))))))

选择无名块2 . "`*U340")

命令: (ssget "x" (list (cons 0 "INSERT")(2 . "`*U340")))

; 错误: *error* 函数中出错AutoCAD 变量设置被拒绝: "osmode" nil

不行的,SSGET要如何处理才能选择"*U"这一类的无名块

zhongys · 发表于 2010-11-13 17:22:00

命令: (ssget "x" (list '(0 . "INSERT")'(2 . "*U340")))
nil

danxingpen · 发表于 2010-11-14 08:07:00

呵呵，楼上的看完整了吗？(ssget "x" (list '(0 . "INSERT")'(2 . "`*U340")))

秋枫 · 发表于 2010-11-28 22:37:00

先谢谢二楼提供思路的实现。虽然就是原来的思路。
三楼可能没有明白我的意思。选择是一样的，只是有一点特殊。我和问题不是匿名块和普通块的区别，而是动态块和普通块的区别。
动态块的块名不反映在第一级的dxf表中，在第一级的dxf表中只有一个匿名，这意味着已知动态块的块名，不能高效地通过SSGET的DXF过滤出来，必须选择块后遍历选择集才知道有没有选中，选中几个。

有没有好办法对动态图块块名用ssget选择过滤？

发表回复

精选推荐