vlax-put-property用法

dengxuechen

用vlax-put-property修改自定义属性的值，定义了可见性和翻转状态两个属性，其中可见性可以修改，修改翻转状态时总是提示“参数错误”，有人知道是什么问题吗？帮忙提示一下。

newer

修改的什么的自定义属性？
把你的图，和你的完整代码帖上来看看

dengxuechen

属性块和代码

1. (defun c:ts ()
   
2.   (setq ent (car (entsel "\n选择需要修改的块: ")))
   
3.   (setq vnt (vlax-ename->vla-object ent))
   
4.   ;;1.获取动态块的属性：getdynamicblockproperties方法
   
5.   (setq pros (vlax-invoke vnt 'getdynamicblockproperties))
   
6.   ;;vlax-invoke-method调用指定的 ActiveX 方法,该函数在 AutoCAD 2000 之前的版本中为 vlax-invoke。
   
7.   ;;2.获取属性名
   
8.   (setq        proNameList
   
9.          (mapcar '(lambda (x) (vlax-get-property x 'propertyName))
   
10.                  pros
    
11.          )
    
12.          ;;vlax-get-property检索 VLA 对象的特性,该函数原为 vlax-get。propertyName：属性名称
    
13.   )
    
14.   ;;3.判断属性顺序
    
15.   ;;4.获取所有属性的允许值
    
16.                                         ;(mapcar '(lambda (x) (vlax-get x 'allowedValues)) pros)
    
17.   ;;5.获取所有属性的当前值
    
18.   ;;(setq pValues (mapcar '(lambda (x) (vlax-get x 'Value)) pros))
    
19.   (setq proIndex 0)
    
20.   (setq proNameInfo (list))
    
21.   (foreach pnl proNameList
    
22.     ;;proNameInfo:((0 "可见性")(1 "角度")(2 "距离")...)
    
23.     (setq proNameInfo (append proNameInfo (list (list proIndex pnl))))
    
24.     (setq proIndex (1+ proIndex))
    
25.   )
    
26.   (foreach pni proNameInfo
    
27.     (if        (equal "可见性1" (cadr pni))
    
28.       (vlax-put-property (nth (car pni) pros) 'value "6编组")
    
29.     )
    
30.     (if        (equal "翻转状态1" (cadr pni))
    
31.       (vlax-put-property (nth (car pni) pros) 'value "1")
    
32.       ;;其中1这个是翻转状态的允许值  "1"和1都不行  "已翻转"和"未翻转"也不行
    
33.     )
    
34.   )
    
35. )
    
36. 
    

(defun c:ts ()<br />   (setq ent (car (entsel "\n选择需要修改的块: ")))<br />   (setq vnt (vlax-ename->vla-object ent))<br />   ;;1.获取动态块的属性：getdynamicblockproperties方法<br />   (setq pros (vlax-invoke vnt 'getdynamicblockproperties))<br />   ;;vlax-invoke-method调用指定的 ActiveX 方法,该函数在 AutoCAD 2000 之前的版本中为 vlax-invoke。<br />   ;;2.获取属性名<br />   (setq        proNameList<br />          (mapcar '(lambda (x) (vlax-get-property x 'propertyName))<br />                  pros<br />          )<br />          ;;vlax-get-property检索 VLA 对象的特性,该函数原为 vlax-get。propertyName：属性名称<br />   )<br />   ;;3.判断属性顺序<br />   ;;4.获取所有属性的允许值<br />                                         ;(mapcar '(lambda (x) (vlax-get x 'allowedValues)) pros)<br />   ;;5.获取所有属性的当前值<br />   ;;(setq pValues (mapcar '(lambda (x) (vlax-get x 'Value)) pros))<br />   (setq proIndex 0)<br />   (setq proNameInfo (list))<br />   (foreach pnl proNameList<br />     ;;proNameInfo:((0 "可见性")(1 "角度")(2 "距离")...)<br />     (setq proNameInfo (append proNameInfo (list (list proIndex pnl))))<br />     (setq proIndex (1+ proIndex))<br />   )<br />   (foreach pni proNameInfo<br />     (if        (equal "可见性1" (cadr pni))<br />       (vlax-put-property (nth (car pni) pros) 'value "6编组")<br />     )<br />     (if        (equal "翻转状态1" (cadr pni))<br />       (vlax-put-property (nth (car pni) pros) 'value "1")<br />       ;;其中1这个是翻转状态的允许值  "1"和1都不行  "已翻转"和"未翻转"也不行<br />     )<br />   )<br /> )<br /> <br />

dengxuechen

newer 发表于 2020-4-23 14:41
修改的什么的自定义属性？
把你的图，和你的完整代码帖上来看看

下面已经传上来了

哥米钱/坏笑

好！（此评论虽然才1个字，但语法严谨，用词工整，结构巧妙，琅琅上口，栩栩如生，龙飞凤舞，可谓言简意赅，足见评论人扎实的文字功底，以及信手拈来的写作技巧和巧夺天工、鬼斧神工般的创造能力，令人佩服佩服，再加上以感叹号收尾，实在是点睛之笔）

dengxuechen

没人知道原因吗

Lisphk

dengxuechen 发表于 2020-4-24 14:28
没人知道原因吗

你这个图打开了，图块自动就没了

xk15c

学习了

dengxuechen

Lisphk 发表于 2020-4-24 18:42
你这个图打开了，图块自动就没了

直接打开要用块编辑器打开，要不然就打开CAD然后点插入块，选择这个块就行了