lisp可否实现动态块动作编辑？

a117034423

求助，如何检索获取和修改 块编辑器内指定的线性参数 求指教
我想通过在块内修改线性参数的方式来改变阵列间距
求代码
再就是，动态块的动作属性是否可以用LIsp实现编辑

aisong220

尹思颖

2. ; (DynamicProps (car (entsel)) "Pipe length" nil) get the Pipe length from a dynamic block
   
3. ; (DynamicProps (car (entsel)) "" nil) get the properties from a dynamic block
   
4. ; (DynamicProps (car (entsel)) "Pipe length" 2000.0) set the properties from a dynamic block
   
5. (defun DynamicProps (ename propname value / obj prpL prp)
   
6.   (vl-load-com)
   
7.         ;(setq ename (car (entsel)))
   
8.   (setq obj
   
9.                 (if (= (type ename) 'VLA-OBJECT)
   
10.                         ename
    
11.                         (vlax-ename->vla-object ename)
    
12.                 )
    
13.         )
    
14.   (if vla-getdynamicblockproperties
    
15.                 (setq prpL (vlax-invoke obj 'getdynamicblockproperties))
    
16.         )
    
17.         ;(setq propname "查寻")
    
18.         ;(setq value "20")
    
19.   (setq return
    
20.     (if (setq prp (vl-remove-if-not (function (lambda(x)
    
21.                                                                                                                                                                                                 (= (vlax-get-property x 'PropertyName) propname)
    
22.                                                                                                                                                                                         )) prpL))
    
23.       (mapcar
    
24.                                 (function (lambda(v)
    
25.                                                                           (if (and (/= value nil) (vlax-property-available-p v 'Value) (/= (type value)'LIST))
    
26.                                                                             (progn (vlax-put-property v 'Value value) (vla-update obj))
    
27.                                                                           )
    
28.                                                                           (if (and (vlax-property-available-p v 'AllowedValues) (vlax-get v 'AllowedValues))
    
29.                                                                             (list (vlax-get v 'Value) (vlax-get v 'AllowedValues))
    
30.                                                                             (vlax-get v 'Value)
    
31.                                                                           )
    
32.                   ))
    
33.                                 prp
    
34.                         )
    
35.       (mapcar
    
36.                                 (function (lambda(v)
    
37.                                                                                 (list (vla-get-propertyName v)(vlax-get v 'Value) v)
    
38.                                                                         ))
    
39.                                 prpL
    
40.                         )
    
41.     )
    
42.   )
    
43.   return
    
44. )
    
45. (DynamicProps (car (entsel)) "距离" nil)
    
46. (DynamicProps (car (entsel)) "" nil)
    
47. (DynamicProps (car (entsel)) "查寻" "50")
    
48. (DynamicProps (car (entsel)) "可见性" "2")
    
49. 
    
50. (= (vlax-get-property (nth 12 prpL) 'PropertyName) propname)
    
51. 
    
52. (vlax-property-available-p (nth 0 prp) 'Value)
    
53. (vlax-put-property (nth 0 prp) 'Value value)
    
54. 
    
55. (vlax-property-available-p (nth 0 prp) 'AllowedValues)
    
56. (vlax-get (nth 0 prp) 'AllowedValues)
    
57. 
    
58. (vla-get-propertyName (nth 0 prpL))
    
59. (vlax-get (nth 0 prpL) 'Value)
    
60. 
    
61. (length return)
    
62. (assoc "查寻" return)
    
63. (DynamicProps (car (entsel)) "查寻" 50)

; (DynamicProps (car (entsel)) "Pipe length" nil) get the Pipe length from a dynamic block <br /> ; (DynamicProps (car (entsel)) "" nil) get the properties from a dynamic block <br /> ; (DynamicProps (car (entsel)) "Pipe length" 2000.0) set the properties from a dynamic block <br /> (defun DynamicProps (ename propname value / obj prpL prp)<br />   (vl-load-com)<br />         ;(setq ename (car (entsel)))<br />   (setq obj <br />                 (if (= (type ename) 'VLA-OBJECT) <br />                         ename <br />                         (vlax-ename->vla-object ename)<br />                 )<br />         )<br />   (if vla-getdynamicblockproperties <br />                 (setq prpL (vlax-invoke obj 'getdynamicblockproperties))<br />         )<br />         ;(setq propname "查寻")<br />         ;(setq value "20")<br />   (setq return<br />     (if (setq prp (vl-remove-if-not (function (lambda(x)<br />                                                                                                                                                                                                 (= (vlax-get-property x 'PropertyName) propname)<br />                                                                                                                                                                                         )) prpL))<br />       (mapcar <br />                                 (function (lambda(v)<br />                                                                           (if (and (/= value nil) (vlax-property-available-p v 'Value) (/= (type value)'LIST))<br />                                                                             (progn (vlax-put-property v 'Value value) (vla-update obj))<br />                                                                           )<br />                                                                           (if (and (vlax-property-available-p v 'AllowedValues) (vlax-get v 'AllowedValues))<br />                                                                             (list (vlax-get v 'Value) (vlax-get v 'AllowedValues))<br />                                                                             (vlax-get v 'Value)<br />                                                                           )<br />                   ))<br />                                 prp<br />                         )<br />       (mapcar <br />                                 (function (lambda(v)<br />                                                                                 (list (vla-get-propertyName v)(vlax-get v 'Value) v)<br />                                                                         ))<br />                                 prpL<br />                         )<br />     )<br />   )<br />   return<br /> )<br /> (DynamicProps (car (entsel)) "距离" nil)<br /> (DynamicProps (car (entsel)) "" nil)<br /> (DynamicProps (car (entsel)) "查寻" "50")<br /> (DynamicProps (car (entsel)) "可见性" "2")<br /> <br /> (= (vlax-get-property (nth 12 prpL) 'PropertyName) propname)<br /> <br /> (vlax-property-available-p (nth 0 prp) 'Value)<br /> (vlax-put-property (nth 0 prp) 'Value value)<br /> <br /> (vlax-property-available-p (nth 0 prp) 'AllowedValues)<br /> (vlax-get (nth 0 prp) 'AllowedValues)<br /> <br /> (vla-get-propertyName (nth 0 prpL))<br /> (vlax-get (nth 0 prpL) 'Value)<br /> <br /> (length return)<br /> (assoc "查寻" return)<br /> (DynamicProps (car (entsel)) "查寻" 50)

a117034423

尹思颖 发表于 2021-6-29 08:12

这是直接改参数值得，我想编辑动态块的动作属性 例如阵列动作的间距

lslsq

http://lee-mac.com/dynamicblockfunctions.html 这个应该会对你有一定帮助

zteykmgscqh

学习真是无止境啊