模拟尺寸标注，新手编写，错误多多~~~

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 /> )

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.     )
    
32.   )
    
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 />     )<br />   )<br />   (command "_insert" "十字标记" p 1 1 (angtos ng))<br /> )

lucas_3333

模拟尺寸标注?有何意义呢？

77077

没意义,闲的蛋疼瞎折腾~

尘缘一生

此程序意义重大，各种插件，不能逃开CAD标注系统的，涉及CAD变量的控制，往往造成插件冲突，如果避开CAD标注系统，开发一套，讲避开各种CAD变量！

实际上：需要开发个点点标注，进而扩展即可，。