一个简单的智能标注

q530496591

我是菜鸟,刚学会编程.想做一个标注的编程但是又不会!还请明经的师兄前辈们帮帮忙!
要求如下:
  只标直线的.文字为TXT 精度为小数点后二位.最好尺寸能自动避让(没有也可以,用来学习更多!).能框选标注!可选标注文字大小
郊果如图:

q530496591

没有人么？下面是我自己做的一个只标注线的长度的多选标注。想做一个二线X轴的标注和Y轴标注！下面是代码和图片

1. 
   
2. (defun c:tt ()
   
3.   (setq pt1dist (getint "\n请输入标注时[往左拉或往下拉]的长度[10]:"))
   
4.   (if (null pt1dist) (setq pt1dist 10))
   
5.   (prompt "请选择标注的线段:")
   
6.   (setq entss (ssget)) ;(setq entss (ssget "a" '((0 . "LINE"))))
   
7.   (setq n 0)
   
8.   (repeat (sslength entss)
   
9.     (setq ent (ssname entss n)) ;返回选择集的名字,从0开始的这是固定的
   
10.     (setq get (entget ent)) ;得出每一个选择集的属性
    
11.     (setq pt10 (cdr (assoc 10 get)))
    
12.     (setq xpt10 (car pt10))
    
13.     (setq ypt10 (cadr pt10))
    
14.     (setq pt11 (cdr (assoc 11 get)))
    
15.     (setq xpt11 (car pt11))
    
16.     (setq ypt11 (cadr pt11))
    
17.     (cond
    
18.       ((equal ypt10 ypt11 ) (setq pt1 (polar pt10 (/ pi -2) pt1dist)) (command "dimlinear" pt10 pt11 "h" pt1))
    
19.       ((equal xpt10 xpt11 ) (setq pt1 (polar pt10 pi pt1dist)) (command "dimlinear" pt10 pt11 "v" pt1))
    
20.       (t (setq pt1 (polar pt10 (angle pt10 pt11) pt1dist)) (command "DIMALIGNED"  pt10 pt11 pt1))
    
21.     )
    
22.     (setq n (+ n 1))
    
23.   )
    
24. )
    
25.    

<br /> (defun c:tt ()<br />   (setq pt1dist (getint "\n请输入标注时[往左拉或往下拉]的长度[10]:"))<br />   (if (null pt1dist) (setq pt1dist 10))<br />   (prompt "请选择标注的线段:")<br />   (setq entss (ssget)) ;(setq entss (ssget "a" '((0 . "LINE"))))<br />   (setq n 0)<br />   (repeat (sslength entss)<br />     (setq ent (ssname entss n)) ;返回选择集的名字,从0开始的这是固定的<br />     (setq get (entget ent)) ;得出每一个选择集的属性<br />     (setq pt10 (cdr (assoc 10 get)))<br />     (setq xpt10 (car pt10))<br />     (setq ypt10 (cadr pt10))<br />     (setq pt11 (cdr (assoc 11 get)))<br />     (setq xpt11 (car pt11))<br />     (setq ypt11 (cadr pt11))<br />     (cond<br />       ((equal ypt10 ypt11 ) (setq pt1 (polar pt10 (/ pi -2) pt1dist)) (command "dimlinear" pt10 pt11 "h" pt1))<br />       ((equal xpt10 xpt11 ) (setq pt1 (polar pt10 pi pt1dist)) (command "dimlinear" pt10 pt11 "v" pt1)) <br />       (t (setq pt1 (polar pt10 (angle pt10 pt11) pt1dist)) (command "DIMALIGNED"  pt10 pt11 pt1))<br />     )<br />     (setq n (+ n 1))<br />   )<br /> )<br />    

shenhung

納悶 AutoCAD QDIM指令可以輕鬆做到的事. 為何要再自己重寫程式.

q530496591

shenhung 发表于 2013-4-21 17:37
納悶 AutoCAD QDIM指令可以輕鬆做到的事. 為何要再自己重寫程式.

我不知道啊！我看到别人用过还以为是别人写的程序呢。谢谢shenhung师兄！