（API应用）绘制尺寸实体文本框

newer

两套代码，2014.1218API提供的新函数

1. (defun c:tt ()
   
2.   (if (and
   
3.         (xdrx_prompt "\n请选择尺寸实体<退出>:")
   
4.         (setq ss (ssget '((0 . "dimension"))))
   
5.       )
   
6.     (xdrx_dimension_textbox ss t)
   
7.   )
   
8.   (princ)
   
9. )
   

(defun c:tt ()<br />   (if (and<br />         (xdrx_prompt "\n请选择尺寸实体<退出>:")<br />         (setq ss (ssget '((0 . "dimension"))))<br />       )<br />     (xdrx_dimension_textbox ss t)<br />   )<br />   (princ)<br /> )<br />

1. (defun c:tt ()
   
2.   (if (and
   
3.         (xdrx_prompt "\n请选择尺寸实体<退出>:")
   
4.         (setq ss (ssget '((0 . "dimension"))))
   
5.       )
   
6.     (progn
   
7.       (mapcar
   
8.         '(lambda (x)
   
9.            (setq pts (xdrx_getpropertyvalue x "textbox"))
   
10.            (xdrx_polyline_make pts t)
    
11.          )
    
12.         (xdrx_pickset->ents ss)
    
13.       )
    
14.     )
    
15.   )
    
16.   (princ)
    
17. )
    
18. 
    

(defun c:tt ()<br />   (if (and<br />         (xdrx_prompt "\n请选择尺寸实体<退出>:")<br />         (setq ss (ssget '((0 . "dimension"))))<br />       )<br />     (progn<br />       (mapcar<br />         '(lambda (x)<br />            (setq pts (xdrx_getpropertyvalue x "textbox"))<br />            (xdrx_polyline_make pts t)<br />          )<br />         (xdrx_pickset->ents ss)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

newer

这个尺寸文本框可以做 尺寸文字避让方面的应用。