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

hardthinking · 发表于 2013-8-10 12:35:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

能实现如下图这个功能吗？
无标题.gif

附上dwg文件，由CAD2012版本创建。

请点击此处下载

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

您的用户组是：游客

文件名称:测试块.rar
下载次数:15 文件大小:15.9 KB
下载权限: 不限以上 [免费赚D豆]

newer · 发表于 2013-8-10 12:46:25

LISP肯定能做，楼主，我觉得你应该总结下，你的动态块都需要什么工具，比如批量修改长度了，赋值什么信息了，最好都说出来，然后看看大侠们总结下写一个更通用的工具来。

hardthinking · 发表于 2013-8-10 14:03:26

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

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

希望实现功能四：
能否通过框选赋予动态块特定参数特定数值？及本帖第一个问题。
希望实现功能五：
能否通过类似格式刷，刷新动态块的参数。

希望实现功能六：
能否让某参数实现自动排序？
分两种，纯排序
根据参数排序

一时想到这么多，如果能实现，我觉得结合优秀的动态块和特定lisp都可以去卖软件了~~
附上dwg文件，由CAD2012创建

请点击此处下载

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

您的用户组是：游客

文件名称:动态块1.rar
下载次数:13 文件大小:32.42 KB
下载权限: 不限以上 [免费赚D豆]

不敢奢求大侠们解决，就当我提供下动态块高级使用的一些思路吧，，

st788796 · 发表于 2013-8-10 14:25:46

利用 getpropertyvalue setpropertyvalue试试来自: Android客户端

newer · 发表于 2013-8-12 09:12:44

楼主，你能提供个2008下的动态块吗，我测试下。

hardthinking · 发表于 2013-8-12 09:36:55

newer 发表于 2013-8-12 09:12
楼主，你能提供个2008下的动态块吗，我测试下。

好的，我得下载08，然后再做一下，晚上我回去搞...

st788796 · 发表于 2013-8-12 12:39:40

hardthinking 发表于 2013-8-12 09:36
好的，我得下载08，然后再做一下，晚上我回去搞...

一个简单的动态块匹配属性

(defun c:matdyn (/ e obj dynProperties ss sl i obj1)
(defun ssdynblk (bn ss)
(setq sl (sslength ss)
i -1
)
(repeat sl
(setq e (ssname ss (setq i (1+ i))))
(if
(and e
(/= (vla-get-effectivename (vlax-ename->vla-object e)) bn)
)
(ssdel e ss)
)
)
ss
)
(if (and (setq
e (car (xdrx_entsel "\n选择源动态块: " '((0 . "Insert"))))
)
(setq obj (vlax-ename->vla-object e))
(vlax-property-available-p obj 'IsDynamicblock)
(setq bn (vla-get-effectivename obj))
(progn
(princ "\n选择匹配动态块...")
(setq ss (ssget '((0 . "insert"))))
)
(setq ss (ssdynblk bn ss))
)
(progn
(setq
dynProperties
(mapcar
'(lambda (x) (vla-get-value x))
(safearray-value
(variant-value
(vla-getdynamicblockproperties obj)
)
)
)
)
(setq sl (sslength ss)
i -1
)
(repeat sl
(setq obj1 (vlax-ename->vla-object (ssname ss (setq i (1+ i)))))
(mapcar '(lambda (x y)
(if (/= (vla-get-readonly x) :vlax-true)
(vla-put-value x y)
)
)
(safearray-value
(variant-value (vla-getdynamicblockproperties obj1))
)
dynProperties
)
)
)
)
(princ)
)

(defun c:matdyn (/ e obj dynProperties ss sl i obj1) 
  (defun ssdynblk (bn ss) 
    (setq sl (sslength ss) 
   i  -1 
    ) 
    (repeat sl 
      (setq e (ssname ss (setq i (1+ i)))) 
      (if 
 (and e 
      (/= (vla-get-effectivename (vlax-ename->vla-object e)) bn) 
 ) 
  (ssdel e ss) 
      ) 
    ) 
    ss 
  ) 
  (if (and (setq 
      e (car (xdrx_entsel "\n选择源动态块: " '((0 . "Insert")))) 
    ) 
    (setq obj (vlax-ename->vla-object e)) 
    (vlax-property-available-p obj 'IsDynamicblock) 
    (setq bn (vla-get-effectivename obj)) 
    (progn 
      (princ "\n选择匹配动态块...") 
      (setq ss (ssget '((0 . "insert")))) 
    ) 
    (setq ss (ssdynblk bn ss)) 
      ) 
    (progn 
      (setq 
 dynProperties 
  (mapcar 
    '(lambda (x) (vla-get-value x)) 
    (safearray-value 
      (variant-value 
        (vla-getdynamicblockproperties obj) 
      ) 
    ) 
  ) 
      ) 
      (setq sl (sslength ss) 
     i  -1 
      ) 
      (repeat sl 
 (setq obj1 (vlax-ename->vla-object (ssname ss (setq i (1+ i))))) 
 (mapcar '(lambda (x y) 
     (if (/= (vla-get-readonly x) :vlax-true) 
       (vla-put-value x y) 
     ) 
   ) 
  (safearray-value 
    (variant-value (vla-getdynamicblockproperties obj1)) 
  ) 
  dynProperties 
 ) 
      ) 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2013-8-12 12:43:49

简单交点插柱

(defun c:Inskz (/ ms pts)
(if (setq ss (ssget))
(progn
(xd::begin)
(setq ms (vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
)
(setq pts (xdrx_curve_getinters ss))
(foreach p pts
(vla-insertblock
ms
(vlax-3d-point p)
"kz"
1.
1.
1.
0.
)
)
(xd::end)
)
)
(princ)
)

其他的柱子排序就简单了，用 value 大小排序，或者 Box 排序，改名字就是是改属性名

hardthinking · 发表于 2013-8-12 12:45:10

newer 发表于 2013-8-12 09:12
楼主，你能提供个2008下的动态块吗，我测试下。

中午找同事机子在08上整了下，有几个块08做不了，我都在dwg上标记了，其它都行，现在传上.请您测试...

请点击此处下载

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

您的用户组是：游客

文件名称:08动态块1.rar
下载次数:8 文件大小:54.69 KB
下载权限: 不限以上 [免费赚D豆]

hardthinking · 发表于 2013-8-12 13:13:34

st788796 发表于 2013-8-12 12:43
简单交点插柱
其他的柱子排序就简单了，用 value 大小排序，或者 Box 排序，改名字就是是改属性名

感谢st788796的帮助！您写的这两个程序是需要XDRX支持的吧？我电脑上只有2012x64和2014x64，2014我没资格下载，2012的下载下来了，可加载“XDRX_API.R18.X64”出现问题。纯2012X64新文件时可成功加载，可一打开文件就“致命错误”。很是郁闷。导致崩溃的文件就是我刚回复newer的那个文件...有兴趣大侠们可以研究下...

newer · 发表于 2013-8-12 13:19:39

hardthinking 发表于 2013-8-12 12:45
中午找同事机子在08上整了下，有几个块08做不了，我都在dwg上标记了，其它都行，现在传上.请您测试...

楼主，看了你的图，有几个问题：

1、2008不能做的，是什么？ 2012以上可以做？
2、你带KL1 KL2的图，并不是动态块，KL1...是属性，你想根据属性后面的数字排序？
3、窗户的那三个动态块，你想刷成一样的？我看有距离1，距离2，间距1，间距2四个参数，你想刷完窗户都变成一样的了？

newer · 发表于 2013-8-12 13:21:54

hardthinking 发表于 2013-8-12 13:13
感谢st788796的帮助！您写的这两个程序是需要XDRX支持的吧？我电脑上只有2012x64和2014x64，2014 ...

你下载的是什么版本的XDRX_API，加载API后的提示贴上论坛。

我用的是2008的API，正在打开你给的图看，没问题。

st788796 · 发表于 2013-8-12 13:26:02

hardthinking 发表于 2013-8-12 13:13
感谢st788796的帮助！您写的这两个程序是需要XDRX支持的吧？我电脑上只有2012x64和2014x64，2014 ...

(xd::begin)
(xd::end)
在 lisp-lib 中，注释掉仅加载 API 就可以使用

st788796 · 发表于 2013-8-12 13:32:07

newer 发表于 2013-8-12 13:21
你下载的是什么版本的XDRX_API，加载API后的提示贴上论坛。

我用的是2008的API，正在打开你给的图看， ...

Windows 7 + 2012 32位加载 8.11 api 正常，打开LZ的动态块CAD崩溃，CAD2014 + 8.07 版本api打开LZ图正常

hardthinking · 发表于 2013-8-12 13:46:51

newer 发表于 2013-8-12 13:19
楼主，看了你的图，有几个问题：

1、2008不能做的，是什么？ 2012以上可以做？

回答：1.08没有的参数如下图红圈标记处：
08不能做的.gif

2.KL1 KL2（功能6附图）那两个图如果用2012打开的话，是能看出来是动态块的。他有两个d1、d2的参数，用来调长、宽的。
08虽然也可以做两个参数调矩形的长宽。但和后面版本的区别是，不能做参数运算。还是有本质区别的。

3.窗户的那三个动态块，额..其实我的设想是梁，距离1、距离2是两个梁的半宽，其它两个参数是“位置1”，"位置2"，是两端定位用的。我想刷完之后，距离1、距离2几个块都一样了就行了。

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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评