yang7516 发表于 2010-11-15 13:18:00

[求助]如何获得当前某个标注的真实标注文字???

在用LISP编程中，获得的DXF中的尺寸值为<>,有没有什么办法使其在程序中显示为真实值呢，如<>显示为25

yang7516 发表于 2010-11-15 13:44:00

自己顶一个，龙哥，飞哥，帮帮忙吧

xshrimp 发表于 2010-11-15 15:44:00

<font face="Courier New" size="4">;取得标注文字真实值<br/>(setq obj (vlax-ename-&gt;vla-object (car (entsel))))&nbsp;&nbsp;&nbsp; <br/>(vla-get-Measurement obj)&nbsp; <br/></font>

yang7516 发表于 2010-11-15 15:59:00

本帖最后由 作者 于 2010-11-16 8:51:58 编辑

多谢这位弟兄了，有你这样的热心人，论坛才会兴旺

yang7516 发表于 2010-11-16 12:21:00

测量值为dxf码中，（assoc 42 ent）

s678z 发表于 2012-5-28 15:31:05

(defun c:te ()
(WHILE T
(setq e (entsel "\nSelect a dimension:"))
(setq l1 (entget (car e)))
(setq REAL (cdr (assoc 42 l1)))
(setq INPUT (cdr (assoc 1 l1)))
(PRINC "REAL:")
(PRINC REAL)
(PRINC "---INPUT:")
(princ INPUT)
)
)

(princ)
页: [1]
查看完整版本: [求助]如何获得当前某个标注的真实标注文字???