各位老师，图块的基点，如何能用点位显示出来？

wxn80

CAD图块的基点，如何能用点位显示出来？就是在图块基点上自动生成一个点，能通过插件实现这个功能吗？

newer

几句代码

1. (defun c:tt ()
   
2.   (if (and (xdrx_initssget "\n选择块<退出>:")
   
3.            (setq ss (xdrx_ssget '((0 . "INSERT"))))
   
4.       )
   
5.     (progn
   
6.       (xdrx_point_make (xdrx_entity_getproperty ss "position"))
   
7.       (xdrx_prompt "\n生成了" (sslength ss) "个点.")
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )
    
12. 
    

(defun c:tt ()<br />   (if (and (xdrx_initssget "\n选择块<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "INSERT"))))<br />       )<br />     (progn<br />       (xdrx_point_make (xdrx_entity_getproperty ss "position"))<br />       (xdrx_prompt "\n生成了" (sslength ss) "个点.")<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

wxn80

newer 发表于 2018-12-25 15:33
几句代码

谢谢版主大人！这功能的插件我翻了半下午论坛都没找见，你几分钟就弄出来了，我太崇拜你了。