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

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

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

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

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

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

;取得标注文字真实值
(setq obj (vlax-ename->vla-object (car (entsel))))
(vla-get-Measurement obj)

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)

账号		自动登录	找回密码
密码			注册