[求助]：用lisp怎样才能得到图中某个标注的dimscale

tuger

用lisp怎样才能得到图中某个标注的dimscale

lsjjm

(vlax-get-property vent 'scalefactor)
其中vent-你所选择的标注的vla对象

newer

最初由 tuger 发布
[B]用lisp怎样才能得到图中某个标注的dimscale [/B]

标注样式决定尺寸表现，所以要先得到尺寸实体的标注样式，然后在得到该样式的 dimscale

下面是纯LISP代码

e 是标注实体名

2. <normalfont>
   
3. (setq ed (entget e)
   
4.          dstyl (cdr (assoc 3 ed))
   
5. )
   
6. (setq ddef (tblsearch "dimstyle" dstyl)
   
7.          dimscale (cdr (assoc 40 ddef))
   
8. )
   
9. </normalfont>
   

<normalfont><br /> (setq ed (entget e)<br />          dstyl (cdr (assoc 3 ed))<br /> )<br /> (setq ddef (tblsearch "dimstyle" dstyl)<br />          dimscale (cdr (assoc 40 ddef))<br /> )<br /> </normalfont><br />

关于dimscale 的组码可以查DXF帮助TBALE里面的dimstyle 符号表

LUCAS

楼上有点错了,应该是这样!!

指令: (cdadr (assoc -3 (entget (car (entsel)) '("ACAD"))))

选取对象: ((1000 . "DSTYLE") (1002 . "{") (1070 . 40) (1040 . 3.0) (1070 . 341) (1005 . "0") (1002 . "}"))

其中(1070 . 40) (1040 . 3.0)代表 40 DIMSCALE!!
PS:FOR R14+

tuger

谢谢各位，我懂了。

aeo

3.4贴都对一半(我这么认为)
dim没改过,  newer 的没错,但改过了就随个体了.
LUCAS的呢,没改过的什么也得不到.改过的,就是它.

(entget (car(entsel)) '("*"))得到,看有没有-3项

tuger

(setq dstyl (assoc 3 (entget (car (entsel)) )))
(setq ddef (tblsearch "dimstyle" dstyl)
         dimscale (cdr (assoc 40 ddef))
)

aeo

2. 
   
3. ;图中某个标注的dimscale
   
4. (defun c:dimsca( / ds dsca )
   
5. (setq ds(car(entsel)))
   
6. (setq ds(entget ds '("*") )
   
7. (if(not(setq dsca (assoc 1040 ds)))
   
8. (setq dsca(cdr(assoc 40(tblsearch "dimstyle" (cdr(assoc 3 ds))))))
   
9. (setq dsca(cdr dsca))
   
10. ))

<br /> ;图中某个标注的dimscale<br /> (defun c:dimsca( / ds dsca )<br /> (setq ds(car(entsel)))<br /> (setq ds(entget ds '("*") )<br /> (if(not(setq dsca (assoc 1040 ds)))<br /> (setq dsca(cdr(assoc 40(tblsearch "dimstyle" (cdr(assoc 3 ds))))))<br /> (setq dsca(cdr dsca))<br /> ))

不过第二贴不是更好!