尺寸标注,嘿嘿~

77077

新手瞎闹,适用于总图尺寸.望高手们改进~

2. (defun c:xx1 (/ pt1 pt2 pt3 pt4 pt5 ang dis old old1)
   
3. (setq old1 (getvar "blipmode"))
   
4. (setvar "blipmode" 0)
   
5. (setq lay (getvar "clayer"))
   
6. (command "color" "bylayer")
   
7. (command "layer" "m" "DM-尺寸标注" "c" "3" "DM-尺寸标注" "")
   
8. (setq pt1 (getpoint "\n选择第一点:")
   
9.       pt2 (getpoint pt1 "\n选择另一点:")
   
10.       old (getvar "osmode")
    
11.       pt3(mapcar'(lambda(X Y)(/(+ X Y)2.0)) pt1 pt2);求中点
    
12.       ang (angle pt1 pt2)
    
13.       dis (distance pt1 pt2)
    
14.       pt4 (polar pt1 (+ pi ang) 1.0)
    
15.       pt5 (polar pt2 ang 1.0)
    
16.       )
    
17. (setvar "osmode" 0)
    
18. (drawcross pt1 ang);以P为基点,ang为角度绘制标记块
    
19. (drawcross pt2 ang)
    
20. (entmake (list (cons 0 "LINE") (cons 10 pt4) (cons 11 pt5)))
    
21. (command "-text" "J" "BC" pt3 "2.5" (angtos ang) (rtos dis 2 2) "");谁能告诉我如何用entmake生成中下对齐的文字
    
22. (setvar "osmode" old)
    
23. (setvar "blipmode" old1)
    
24. (command "layer" "s" lay "")
    
25. )

(defun c:xx1 (/ pt1 pt2 pt3 pt4 pt5 ang dis old old1)<br /> (setq old1 (getvar "blipmode"))<br /> (setvar "blipmode" 0)<br /> (setq lay (getvar "clayer"))<br /> (command "color" "bylayer")<br /> (command "layer" "m" "DM-尺寸标注" "c" "3" "DM-尺寸标注" "")<br /> (setq pt1 (getpoint "\n选择第一点:")<br />       pt2 (getpoint pt1 "\n选择另一点:")<br />       old (getvar "osmode")<br />       pt3(mapcar'(lambda(X Y)(/(+ X Y)2.0)) pt1 pt2);求中点<br />       ang (angle pt1 pt2)<br />       dis (distance pt1 pt2)<br />       pt4 (polar pt1 (+ pi ang) 1.0)<br />       pt5 (polar pt2 ang 1.0)<br />       )<br /> (setvar "osmode" 0)<br /> (drawcross pt1 ang);以P为基点,ang为角度绘制标记块<br /> (drawcross pt2 ang)<br /> (entmake (list (cons 0 "LINE") (cons 10 pt4) (cons 11 pt5)))<br /> (command "-text" "J" "BC" pt3 "2.5" (angtos ang) (rtos dis 2 2) "");谁能告诉我如何用entmake生成中下对齐的文字<br /> (setvar "osmode" old)<br /> (setvar "blipmode" old1)<br /> (command "layer" "s" lay "")<br /> )

77077

2. (defun drawcross (p ng / px1 px2 py1 py2)
   
3.   (setq eflag (tblsearch "block" "十字标记")) ;块存在标记
   
4.   (if (not eflag)                        ;不存在十字标记的块，则按如下创建
   
5.     (progn
   
6.       (setq px1        (polar p (angtof "225") '1.5) ;左坐标
   
7.             px2        (polar p (angtof "45") '1.5)        ;右坐标
   
8.             py1        (polar p (angtof "90") '1.5) ;上坐标
   
9.             py2        (polar p (angtof "270") '1.5) ;下坐标
   
10.       )
    
11.       (entmake (list
    
12.                  (cons 0 "BLOCK")
    
13.                  (cons 2 "十字标记")
    
14.                  (cons 70 0)
    
15.                  (cons 10 p)
    
16.                )
    
17.       )
    
18.       (entmake (list
    
19.                  (cons 0 "LINE")
    
20.                  (cons 10 px1)
    
21.                  (cons 11 px2)
    
22.                )
    
23.       )
    
24.       (entmake (list
    
25.                  (cons 0 "LINE")
    
26.                  (cons 10 py1)
    
27.                  (cons 11 py2)
    
28.                )
    
29.       )
    
30.       (entmake '((0 . "endblk")))
    
31.     )                                        ;progn
    
32.   )                                        ;if
    
33.   (command "_insert" "十字标记" p 1 1 (angtos ng))
    
34. )

(defun drawcross (p ng / px1 px2 py1 py2)<br />   (setq eflag (tblsearch "block" "十字标记")) ;块存在标记<br />   (if (not eflag)                        ;不存在十字标记的块，则按如下创建<br />     (progn<br />       (setq px1        (polar p (angtof "225") '1.5) ;左坐标<br />             px2        (polar p (angtof "45") '1.5)        ;右坐标<br />             py1        (polar p (angtof "90") '1.5) ;上坐标<br />             py2        (polar p (angtof "270") '1.5) ;下坐标<br />       )<br />       (entmake (list<br />                  (cons 0 "BLOCK")<br />                  (cons 2 "十字标记")<br />                  (cons 70 0)<br />                  (cons 10 p)<br />                )<br />       )<br />       (entmake (list<br />                  (cons 0 "LINE")<br />                  (cons 10 px1)<br />                  (cons 11 px2)<br />                )<br />       )<br />       (entmake (list<br />                  (cons 0 "LINE")<br />                  (cons 10 py1)<br />                  (cons 11 py2)<br />                )<br />       )<br />       (entmake '((0 . "endblk")))<br />     )                                        ;progn<br />   )                                        ;if<br />   (command "_insert" "十字标记" p 1 1 (angtos ng))<br /> )