[求助]怎么用lisp获得尺寸文字的高度
 

[求助]怎么用lisp获得尺寸文字的高度
www.dimcax.com
[求助]怎么用lisp获得尺寸文字的高度
d
command: (cdr (assoc 40 (entget (car (nentsel))))) ; 点选尺寸文字
d
nentsel vs entsel
======================
command: (nentsel)
select object: (<entity name: 7ef6e048> (122.512 58.4219 0.0) ((1.0 0.0 0.0)
(0.0 1.0 0.0) (0.0 0.0 1.0) (0.0 0.0 0.0)) (<entity name: 7ef6e000>))
command: (entsel)
select object: (<entity name: 7ef6e000> (122.213 58.1895 0.0))
=================================
command: (entget (car (nentsel)))
select object: ((-1 . <entity name: 7ef6e048>) (0 . "mtext") (330 . <entity
name: 7ef6e008>) (5 . "d1") (100 . "acdbentity") (67 . 0) (8 . "dim") (100 .
"acdbmtext") (10 119.588 58.4632 0.0) (40 . 2.0) (41 . 0.0) (71 . 5) (72 . 1)
(1 . "") (7 . "standard") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 .
6.13333) (43 . 2.0) (50 . 0.0) (73 . 1) (44 . 1.0))
command: (entget (car (entsel)))
select object: ((-1 . <entity name: 7ef6e000>) (0 . "dimension") (330 . <entity
name: 7ef52cb8>) (5 . "c8") (100 . "acdbentity") (67 . 0) (410 . "model") (8 .
"dim") (100 . "acdbdimension") (2 . "*d2") (10 123.11 56.4632 0.0) (11 119.588
58.4632 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0)
(42 . 7.04373) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3
. "standard") (100 . "acdbaligneddimension") (13 116.066 50.222 0.0) (14 123.11
50.1556 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 .
"acdbrotateddimension"))
d
學習一下
d