高程点的标记height数值如何通过lisp求得？

katamoto

在地形图上（应该是cass生成的），有一个块，表示一个点，我现在想要求得83.9怎么求？
(vl-load-com)
(defun c:bk()
  (setq en (car (entsel)))
  (setq blk_name (cdr (assoc 2 (entget en))))
  (setq blk (vlax-invoke-method (vlax-get(vlax-get (vlax-get-acad-object) 'activedocument) 'blocks) 'item blk_name))
  (vlax-put-property (vlax-invoke-method blk 'item 0) 'color 1)                          ;设置颜色为红色

852456

(entget(entnext(car(entsel))))

katamoto

852456 发表于 2018-8-26 13:26
(entget(entnext(car(entsel))))

谢谢，果然可以！