求能按参数选择“动态块”的lisp

st788796 · 发表于 2013-8-8 00:44:44

hardthinking 发表于 2013-8-8 00:01
辛苦啦~~不过要是能研究出来那真是...太有价值了..

试验了下，仅适用 2011+ 及LZ的例图

(defun c:tt (/ l w sl i e ss s)
(princ "\n暗柱动态块过滤选择....")
(if (and
(setq l (getreal "\n暗柱长: "))
(setq w (getreal "\n暗柱宽: "))
(setq ss (ssget "x" '((0 . "Insert"))))
)
(progn
(setq sl (sslength ss)
i -1
s (ssadd)
)
(repeat sl
(setq e (ssname ss (setq i (1+ i))))
(if (and
(= (getpropertyvalue e "IsDynamicBlock") 1)
(member "暗柱宽" (mapcar
'vla-get-propertyname
(safearray-value (variant-value (vla-GetDynamicBlockProperties
(vlax-ename->vla-object e)
)
)
)
)
)
(equal (getpropertyvalue e "AcDbDynBlockProperty暗柱宽") w)
(equal (getpropertyvalue e "AcDbDynBlockProperty暗柱长") l)
)
(ssadd e s)
)
)
(if (zerop (sslength s))
nil
(sssetfirst nil s)
)
)
)
(princ)
)

(defun c:tt (/ l w sl i e ss s) 
  (princ "\n暗柱动态块过滤选择....") 
  (if (and 
        (setq l (getreal "\n暗柱长: ")) 
        (setq w (getreal "\n暗柱宽: ")) 
        (setq ss (ssget "x" '((0 . "Insert")))) 
      ) 
    (progn 
      (setq sl (sslength ss) 
            i -1 
            s (ssadd) 
      ) 
      (repeat sl 
        (setq e (ssname ss (setq i (1+ i)))) 
        (if (and 
              (= (getpropertyvalue e "IsDynamicBlock") 1) 
              (member "暗柱宽" (mapcar 
                                 'vla-get-propertyname 
                                 (safearray-value (variant-value (vla-GetDynamicBlockProperties 
                                                                                                (vlax-ename->vla-object e) 
                                                                 ) 
                                                  ) 
                                 ) 
                               ) 
              ) 
              (equal (getpropertyvalue e "AcDbDynBlockProperty暗柱宽") w) 
              (equal (getpropertyvalue e "AcDbDynBlockProperty暗柱长") l) 
            ) 
          (ssadd e s) 
        ) 
      ) 
      (if (zerop (sslength s)) 
        nil 
        (sssetfirst nil s) 
      ) 
    ) 
  ) 
  (princ) 
)

hardthinking · 发表于 2013-8-8 08:26:49

st788796 发表于 2013-8-8 00:44
试验了下，仅适用 2011+ 及LZ的例图

   太强悍了{:soso_e179:}，，我对您的敬意犹如滔滔江水，连绵不绝....
   此致敬礼！！！{:soso_e183:}
   程序虽小，对我意义重大，，，，
   今天好好研究下，，，希望能够看懂啊...

守仁格竹GM · 发表于 2013-8-8 08:38:12

关于选择的问题可以参考选择易，自己搜索有源码。各种选择都可以实现，

st788796 · 发表于 2013-8-8 08:38:44

hardthinking 发表于 10 分钟前

 登录/注册后可看大图

   太强悍了{:soso_e179:}，，我对您的敬意犹如滔滔江水，连绵不绝....
   此致敬礼！！！{:soso_e183:}
   程序虽小，对我意义重大，，，

也欢迎LZ有心得体会经验和大家分享来自: Android客户端

守仁格竹GM · 发表于 2013-8-8 08:41:22

不受版本限制

st788796 · 发表于 2013-8-8 08:42:02

选择易出现时好像还没有动态块还没有，而且动态块在alisp中没有几个组码来自: Android客户端

hardthinking · 发表于 2013-8-8 09:55:07

   试了下最新版的“选择易”，确实能选出来，而且支持“动态块”参数。可以算是CAD自带的qselect的“超级”加强版了。
   我是在“明经CAD论坛”找到的，可惜不支持用户注册，无法下载lsp原码，就把免费的编译过的fas搬来，需要的朋友就直接下载吧。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:ss_v1.28.rar
下载次数:51 文件大小:33.3 KB
下载权限: 不限以上 [免费赚D豆]

我认为这个程序的优点是通用性高，简单易用，0门槛，但每次都要告诉程序我想选的特征是什么，还是要费一点点时间。如果是追求“极致速度”的朋友，我想参考st788796提供的lsp，再根据自己编写的“动态块”，编几个固定特征值的选择集，还是最帅的，，，哈哈哈...
PS：参考资料链接网址：http://bbs.mjtd.com/thread-86610-1-1.html

hardthinking · 发表于 2013-8-8 09:58:11

守仁格竹GM 发表于 2013-8-8 08:41
不受版本限制

果然能用，感谢提供这么强大的工具...

yx5277 · 发表于 2013-11-10 23:00:24

你的这个配筋的暗柱动态块能传上来学习学习吗？

845245015 · 发表于 2019-12-18 08:50:38

学习学习，多多指教，

sunqv · 发表于 2020-10-22 16:14:42

回复一个，快速升级吧

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

[求助] 求能按参数选择“动态块”的lisp

点评

点评