请教大家一个引线颜色的问题

weilu

出于需要，要把某些引线的默认的颜色进行改动，采用以下方法：
(vla-put-dimensionlineColor (vlax-ename->vla-object (entlast)) 2)

发现这条语句如果修改为以下而单用的话，有用 ； 但是放到程序里就没有用了，不知何故？
(vla-put-dimensionlineColor (vlax-ename->vla-object (car (entsel))) 2)

而且不知道引线颜色的组码是多少，有人可否不吝赐教！


对了，祝大家端午安好，多吃粽子~

edata

weilu 发表于 2015-6-25 19:49
好，我试试

如果还是不行的话，则证明你的标注样式的颜色不是by block 随块，那么必须用到样式替代

1. (entmake (list '(0 . "LEADER")
   
2.                '(100 . "AcDbEntity")
   
3.                '(100 . "AcDbLeader")
   
4.                (cons 10 (getpoint))
   
5.                (cons 10 (getpoint))
   
6.                (cons 10 (getpoint))
   
7.                (list -3 (list "ACAD" '(1000 . "DSTYLE")
   
8.                            '(1002 . "{")
   
9.                            '(1070 . 176)
   
10.                            (cons 1070 5) ;当样式颜色不为by block时,设置颜色替代
    
11.                            '(1002 . "}")
    
12.                    )
    
13.                )               
    
14.          )
    
15. )

(entmake (list '(0 . "LEADER")<br />                '(100 . "AcDbEntity")<br />                '(100 . "AcDbLeader")<br />                (cons 10 (getpoint))<br />                (cons 10 (getpoint))<br />                (cons 10 (getpoint))<br />                (list -3 (list "ACAD" '(1000 . "DSTYLE")<br />                            '(1002 . "{")<br />                            '(1070 . 176)<br />                            (cons 1070 5) ;当样式颜色不为by block时,设置颜色替代<br />                            '(1002 . "}")<br />                    )<br />                )               <br />          )<br /> )

琴剑江山_10184

1. (defun c:tt (/ get Len nn)
   
2.   (princ "\n功能 【更改标注颜色】")
   
3.   (and (setq get (ssget ":s" '((0 . "DIMENSION"))))
   
4.        (progn
   
5.    (setq Len (sslength get))
   
6.    (repeat Len
   
7.      (setq nn (ssname get (setq Len (1- Len)))
   
8.      nn (vlax-ename->vla-object nn)
   
9.      )
   
10.      (vla-put-dimensionlineColor nn 2)
    
11.    )
    
12.        )
    
13.   )
    
14.   (princ)
    
15. )

(defun c:tt (/ get Len nn)<br />   (princ "\n功能 【更改标注颜色】")<br />   (and (setq get (ssget ":s" '((0 . "DIMENSION"))))<br />        (progn<br />    (setq Len (sslength get))<br />    (repeat Len<br />      (setq nn (ssname get (setq Len (1- Len)))<br />      nn (vlax-ename->vla-object nn)<br />      )<br />      (vla-put-dimensionlineColor nn 2)<br />    )<br />        )<br />   )<br />   (princ)<br /> )

weilu

琴剑江山_10184 发表于 2015-6-20 22:26

其实我也是这么做的啊，但是就是不行也~

weilu

琴剑江山_10184 发表于 2015-6-20 22:26

我要改的目标是在一个程序中先生成然后使用（entlast）获取的，不是直接选取的，弹道这就是关键？

自贡黄明儒

entlast是文本还是引线？

weilu

自贡黄明儒 发表于 2015-6-21 11:48
entlast是文本还是引线？

我是用entmake做了一个leader，不带文字，难道（entlast）选到了文字？

edata

用entmakex生成，entmakex返回图元名，

weilu

edata 发表于 2015-6-21 15:26
用entmakex生成，entmakex返回图元名，

entlast不也可以获得新建图元的图元名吗？为什么不行呢？

菜卷鱼

(command "_.leader" pt1 pt2 "" "" "n")
(command "chprop" (entlast) ""  "LA" "02标注" "")

wsj5007

怎么用.。。。