求教： lisp 根据属性数值 修改 拉伸动态块 第三贴

嘎嘎嘎123

问题描述：我想实现这样的目的，对一个动态块输入属性值，根据属性值来控制拉伸的长度。之前我已经从论坛求得读取动态块属性以及根据数值控制拉伸长度的两个函数，但在两个函数结合起来的时候出错了。求大神帮忙，动态块见附件。

newer

你结合是怎么出错了啊，请把代码贴上来。你描述下。

嘎嘎嘎123

newer 发表于 2018-12-22 19:17
你结合是怎么出错了啊，请把代码贴上来。你描述下。

在提取数值时出错，试了几个list 的函数都不行。

newer

嘎嘎嘎123 发表于 2018-12-22 19:29
在提取数值时出错，试了几个list 的函数都不行。

出什么错了？ 哪出错了? 应该是什么？你得到什么了？另外，发帖，代码你不贴，别人要帮你改，让人家看你的图片从新输入嘛？
你看到别人的帖子，链接是什么，这些你都要贴到帖子里面，这些是求助最基本应该做的，

你应该去看看置顶的， 发帖的学问 那个帖子。

marting

嘎嘎嘎123 发表于 2018-12-22 19:29
在提取数值时出错，试了几个list 的函数都不行。

(princ (list a))

你的代码整篇，也没 a  这个变量啊，a是哪来的

marting

嘎嘎嘎123 发表于 2018-12-22 19:29
在提取数值时出错，试了几个list 的函数都不行。

你这个是读取块的属性值

去看看关于属性的函数

• (XD::Attrib:ModifyStyle)修改属性实体的样式
  2 个回复 - 1003 次查看
  
  
  2013-7-28 21:48 - XDSoft - 开源函数库
• ( XD::Attrib:SetColor)设置属性实体颜色
  2 个回复 - 585 次查看
  
  
  2013-7-28 21:58 - XDSoft - 开源函数库
• （XD::Attrib:SetValues）设置属性值
  1 个回复 - 16 次查看
  
  
  2018-11-22 12:40 - marting - 开源函数库
• （XD::Attrib:Value）获得属性实体指定TAG的值
  1 个回复 - 2 次查看
  
  
  2018-11-21 23:36 - marting - 开源函数库
• （XD::Attrib:Align）属性与X轴平齐，中心不变
  0 个回复 - 162 次查看
  (defun XD::Attrib:Align (ents / ecs fromx fromy mat ori tox toy x) (if (= (type ents) 'ENAME) (setq ents (list ents)) ) (setq ori (xd::geom:get9pt ents 5) tox (getvar "ucsxdir") to ...
  2016-11-3 12:16 - Lispboy - 开源函数库
• (XD::Attrib:ToText)属性文字生成文字实体
  1 个回复 - 783 次查看
  
  
  2014-1-11 12:58 - newer - 开源函数库
  
  

嘎嘎嘎123

marting 发表于 2018-12-22 22:52
你这个是读取块的属性值

去看看关于属性的函数

我根据XD::Attrib:SetValues 函数进行如下修改，但是没有成功。是lst定义有问题吗？（我动态快中定义了两个属性，）

1. (defun c:tt ()
   
2. 
   
3. (if
   
4.      (and (setq e (car (entsel "\n拾取动态块<退出>:")))        
   
5.    )   
   
6. (setq lst '((工序时间 350d) (工序名称 嘎嘎)))
   
7. (progn   
   
8.    (setq o (vlax-ename->vla-object e))   
   
9.     (foreach att (vlax-invoke o 'getattributes)   
   
10.           (if (setq itm (assoc (vla-get-tagstring att) lst))   
    
11.               (vla-put-textstring att (cdr itm) )   
    
12.       )
    
13.     )  
    
14.    )
    
15. )
    
16. (princ)
    
17. )

(defun c:tt () <br /> <br /> (if<br />      (and (setq e (car (entsel "\n拾取动态块<退出>:")))        <br />    )   <br /> (setq lst '((工序时间 350d) (工序名称 嘎嘎)))<br /> (progn   <br />    (setq o (vlax-ename->vla-object e))   <br />     (foreach att (vlax-invoke o 'getattributes)   <br />           (if (setq itm (assoc (vla-get-tagstring att) lst))    <br />               (vla-put-textstring att (cdr itm) )   <br />       ) <br />     )  <br />    ) <br /> ) <br /> (princ)<br /> )

newer

嘎嘎嘎123 发表于 2018-12-24 20:57
我根据XD::Attrib:SetValues 函数进行如下修改，但是没有成功。是lst定义有问题吗？（我动态快中定义了两 ...

你这个写为什么？


(setq lst '((工序时间 350d) (工序名称 嘎嘎)))

还有，你没成功，你最好和大家说，你想得到什么，你却得到了什么

Lisphk

(setq lst '((工序时间 350d) (工序名称 嘎嘎)))
应该改成
(setq lst '(("工序时间" "350d") ("工序名称" "嘎嘎")))

(vla-put-textstring att (cdr itm) )
改成：
(vla-put-textstring att (cadr itm) )

嘎嘎嘎123

Lisphk 发表于 2018-12-24 22:54
(setq lst '((工序时间 350d) (工序名称 嘎嘎)))
应该改成
(setq lst '(("工序时间" "350d") ("工序名称" ...

如果是这样该怎么改呢？运行结果这样

1. (defun c:tt ()
   
2. 
   
3.       (setq b (getstring "\n输入工序名称<退出>:"))
   
4.       (setq a (getint "\n输入工序时间<退出>:"))
   
5.           (if
   
6.              (and (setq e (car (entsel "\n拾取动态块<退出>:"))) a b)        
   
7.                 (progn   
   
8.                    (setq lst '(("工序时间" (itoa a)) ("工序名称" b)))
   
9.                     (setq o (vlax-ename->vla-object e))   
   
10.                        (foreach att (vlax-invoke o 'getattributes)   
    
11.                             (if (setq itm (assoc (vla-get-tagstring att) lst))   
    
12.                                 (vla-put-textstring att (cadr itm) )   
    
13.                             )
    
14.                         )  
    
15.                   )
    
16.     )
    
17. (princ)
    
18. )

(defun c:tt () <br /> <br />       (setq b (getstring "\n输入工序名称<退出>:"))<br />       (setq a (getint "\n输入工序时间<退出>:"))<br />           (if<br />              (and (setq e (car (entsel "\n拾取动态块<退出>:"))) a b)        <br />                 (progn   <br />                    (setq lst '(("工序时间" (itoa a)) ("工序名称" b)))<br />                     (setq o (vlax-ename->vla-object e))   <br />                        (foreach att (vlax-invoke o 'getattributes)   <br />                             (if (setq itm (assoc (vla-get-tagstring att) lst))    <br />                                 (vla-put-textstring att (cadr itm) )   <br />                             ) <br />                         )  <br />                   ) <br />     ) <br /> (princ)<br /> )

newer

嘎嘎嘎123 发表于 2018-12-27 11:02
如果是这样该怎么改呢？运行结果这样

多看看代码，举一反三


(setq lst '(("工序时间" (itoa a)) ("工序名称" b))) 这么写不对

表前面加 ' 表里面就都得是常量，不能有函数和变量了 ，你上面代码里面的 (itoa a) 和 后面的b

改成：

(setq lst (list
            (list "工序时间" (itoa a))
            (list "工序名称" b)
          )
)

嘎嘎嘎123

newer 发表于 2018-12-27 12:10
多看看代码，举一反三

恩，，多谢大神