katamoto 发表于 2018-8-26 01:42:29

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

在地形图上（应该是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 发表于 2018-8-26 13:26:23

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

katamoto 发表于 2018-8-26 14:31:00

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

谢谢，果然可以！
页: [1]
查看完整版本: 高程点的标记height数值如何通过lisp求得？