关于动态块参数修改的第二次发帖

嘎嘎嘎123

再次求助   我做好了拉伸的动态块，并添加了属性，想要拉伸的参数根据属性进行变化。第一次发帖时大神给了一段代码，我对着相关书籍近一周都没有看明白，所以第二次发帖求个仔细明白。动态块见附件。

lovezp

子函数已收藏，就是不知道是哪位大神写的。
来自: 微社区

嘎嘎嘎123

lovezp 发表于 2018-12-14 08:57
子函数已收藏，就是不知道是哪位大神写的。

楼上能看明白吗？求讲解

lovezp

vl-some我也搞不懂这个函数是怎样一个用法，只知道怎么调用这个子函数。
(XD::BLOCK:Setdynpropvalue objectname  "距离1"  你要改的数值)
距离1 就是你的示范文件里动态块中的自定义名称，在属性里面看的到。

Lisphk

嘎嘎嘎123 发表于 2018-12-14 14:44
楼上能看明白吗？求讲解

1. (defun c:tt ()
   
2.   (if (and (setq e (car (entsel "\n拾取动态块<退出>:")))
   
3.            (setq dis (getreal "\n输入距离<退出>:"))
   
4.       )
   
5.     (progn
   
6.       (setq o (vlax-ename->vla-object e))
   
7.       (xd::block:setdynpropvalue o "距离1" dis)
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )
    

(defun c:tt ()<br />   (if (and (setq e (car (entsel "\n拾取动态块<退出>:")))<br />            (setq dis (getreal "\n输入距离<退出>:"))<br />       )<br />     (progn<br />       (setq o (vlax-ename->vla-object e))<br />       (xd::block:setdynpropvalue o "距离1" dis)<br />     )<br />   )<br />   (princ)<br /> )<br />

嘎嘎嘎123

Lisphk 发表于 2018-12-14 16:11

嘎嘎，，谢谢楼上了