LISP能实现框选文本赋给动态块数值的功能吗？

st788796

hardthinking 发表于 2013-8-12 13:46
回答：1.08没有的参数如下图红圈标记处：

2.KL1 KL2（功能6附图）那两个图 如果用2012打开的话，是能 ...

过滤动态块测试

1. (defun dynss (bn ss / l obj)
   
2.   (setq l 0)
   
3.   (while (< l (sslength ss))
   
4.     (if (and (vlax-property-available-p
   
5.     (setq obj (vlax-ename->vla-object (ssname ss l)))
   
6.     'IsDynamicBlock
   
7.   )
   
8.       (/= (vla-get-effectivename obj) bn)
   
9. )
   
10.       (ssdel (ssname ss l) ss)
    
11.       (setq l (1+ l))
    
12.     )
    
13.   )
    
14.   (if (> (sslength ss) 0)
    
15.     ss
    
16.     nil
    
17.   )
    
18. )
    
19. (defun c:tt (/ e obj ss)
    
20.   (if (and
    
21. (setq e (car (entsel "\n选择动态块: ")))
    
22. (setq obj (vlax-ename->vla-object e))
    
23. (vlax-property-available-p obj 'IsDynamicBlock)
    
24. (progn
    
25.    (princ "\n选择动态块范围....")
    
26.    (setq ss (ssget '((0 . "Insert"))))
    
27. )
    
28. (dynss (vla-get-effectivename obj) ss)
    
29.       )
    
30.     (sssetfirst nil ss)
    
31.   )
    
32.   (princ)
    
33. )

(defun dynss (bn ss / l obj)<br />   (setq l 0)<br />   (while (< l (sslength ss))<br />     (if (and (vlax-property-available-p<br />     (setq obj (vlax-ename->vla-object (ssname ss l)))<br />     'IsDynamicBlock<br />   )<br />       (/= (vla-get-effectivename obj) bn)<br /> )<br />       (ssdel (ssname ss l) ss)<br />       (setq l (1+ l))<br />     )<br />   )<br />   (if (> (sslength ss) 0)<br />     ss<br />     nil<br />   )<br /> )<br /> (defun c:tt (/ e obj ss)<br />   (if (and<br /> (setq e (car (entsel "\n选择动态块: ")))<br /> (setq obj (vlax-ename->vla-object e))<br /> (vlax-property-available-p obj 'IsDynamicBlock)<br /> (progn<br />    (princ "\n选择动态块范围....")<br />    (setq ss (ssget '((0 . "Insert"))))<br /> )<br /> (dynss (vla-get-effectivename obj) ss)<br />       )<br />     (sssetfirst nil ss)<br />   )<br />   (princ)<br /> )

newer

st788796 发表于 2013-8-12 13:32
Windows 7 + 2012 32位 加载 8.11 api 正常，打开LZ的动态块CAD崩溃，CAD2014 + 8.07 版本api打开LZ图正 ...

那CAD2014，API 8.11，正常吗？ 你说的是两个不同的环境。

st788796

newer 发表于 半小时前

                               
登录/注册后可看大图

那CAD2014，API 8.11，正常吗？ 你说的是两个不同的环境。

2014 api 8.11没有下载来自: Android客户端

XDSoft

楼主，你把你工作中做过的建筑或者结构的动态块，贴到论坛， 然后我和朋友帮你实现你所有想实现的工具。同时一起完善你的动态块更符合程序化和符合设计习惯。

st788796

XDSoft 发表于 6&nbsp;分钟前

                               
登录/注册后可看大图

楼主，你把你工作中做过的建筑或者结构的动态块，贴到论坛， 然后我和朋友帮你实现你所有想实现的工具。同时一起完善你的动态块更符合程序化和符合设计习惯。

支持老大的想法，LZ分享些定制的DYNBLOCK，作为交换，这里提供你想要达到的自动处理程序来自: Android客户端

hardthinking

好的啊，不要说什么交换啦，我愿把我做的都拿出来。我也是刚刚开始搞这些东西，反正也不是为了挣钱，大家交流提高，提高工作效率吧！

hardthinking

先发一个我做的动态块和字段接合的小玩意，还不太成熟，演示如下：

功能是 1.可以在特性里给出 单根钢筋的面积 和 总钢筋面积
          2.可以选择是显示钢筋的组合形式 还是 显示钢筋面积
动态块如下：

请点击此处下载

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

您的用户组是：游客

文件名称:1.rar 
下载次数:17  文件大小:30.8 KB 
下载权限: 不限 以上  [免费赚D豆]

由CAD2014创建
对应dwg和lisp都在压缩包里，lisp程序都很原始，，大家见笑哈...

hardthinking

输入标高 板厚:

        做了这些基本功能的动态块，能用纯CAD实现的，我尽量不用tssd之类的插件，tssd跟进新版本CAD的进度实在是太慢了，，天正这方面做的很好.每年CAD的新版本虽然改进的我只能用到一两个，但我觉得都很实用。比如动态块  透明度  快捷特性栏  填充夹点改进 标注动态关联等. 还是用最新版本的好啊！

请点击此处下载

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

您的用户组是：游客

文件名称:BG-BH.rar 
下载次数:25  文件大小:50.02 KB 
下载权限: 不限 以上  [免费赚D豆]

由CAD2014创建

XDSoft

hardthinking 发表于 2013-8-13 00:16
输入标高 板厚:

        做了这些基本功能的动态块，能用纯CAD实现的，我尽量不用tssd之类的插件，tssd ...

2014的XDRX_API 下载密码给你发消息了。新的API提高动态块的支持函数了。

如果你觉得需要编程处理你的这些动态块，请到 晓东工具箱、编程申请论坛， 一个动态块，发一个单独的帖子，一个一个完善工具。

hardthinking

好的 多谢{:soso_e181:}

st788796

hardthinking 发表于 2013-8-10 14:03
希望实现功能一：
   能否按动态参数选择 动态块  高手们已解决。拜谢！
希望实现功能二：

功能三实现
http://www.xdcad.net/forum/thread-670099-1-1.html

不太会作动画，LZ 觉得适合了，麻烦做个动画！

hardthinking

л{:soso_e181:}
请版主删除此回复 手机误操作

st788796

hardthinking 发表于 4&nbsp;天前

                               
登录/注册后可看大图

希望实现功能一：
   能否按动态参数选择 动态块  高手们已解决。拜谢！
希望实现功能二：
   能否批量插入动态块？如下图。

希望实现功能三：
   能否通过指定两点插入特定动态块？

借助XDAPI功能四也容易实现，DCL或ODCL略显麻烦，用doslib提供的对话框修改这些属性方便，稍后提供来自: Android客户端

xxxxxxxxx123

:):):)学习一下   感谢分享

lzj511

学习了！！！！