[编程申请]：要这样绘制一根线段和圆

山顶洞人

公司新购了一台光学三坐标测量仪，测量结果只能输出圆（圆心坐标和直径）和线段（线段中点坐标和角度）。
要把测量结果变成图形就要绘制这样一根线段，以线段的中点为插入点，然后指定旋转角度；绘制圆的时候最好可以指圆心后默认指定圆的直径，而不是要输入D才行。
我不会编程，请朋友们帮帮忙啊！

小妹丁

你只要提供线长、中点坐标、角度、圆心坐标、半径的格式，很多人可以帮到你。

山顶洞人

如贴图所示，测量一个零件，我只能得到如上数据，X、Y是中点（或圆心）坐标，LN*_phi是角度，Cir*_Dia是直径。

aeo

看你不容易：）

假定你的属性块为"abc"
[php]
(defun c:ll1()(setq *len*(getdist "\n画线长度")))
(defun c:ll( /  ang j p0 p1 p2 x y h)
(princ "\n\"ll1\"设长度")
(if(not *len*)(c:ll1))
(if (and   (setq x(getreal "\nX坐标: "))
            (setq y(getreal "\nY坐标: "))
            (setq p0(list x y))
            (setq ang(getstring "\n角度: "))
     )
  (progn
  (setq j(* pi(/ (atof ang )180.))
          p1(polar p0 j (/ *len* 2.))
          p2(polar p0(+ j pi)(/ *len* 2.))
  )
(command ".line" "_non"p1 "_non" p2 "")
(command "-insert" "bg""_non" p0 "1""1""0"  ang)
(setq h (open "c:\\abc.txt""a"))
(princ (strcat "X="(rtos x 2 3)"  Y="(rtos y 2 3)"  角度:" ang) h )
(close h)
))
(princ)
)

(defun c:ii( /  ang h p0  x y)
(if (and   (setq x(getreal "\nX坐标: "))
            (setq y(getreal "\nY坐标: "))
            (setq p0(list x y))
            (setq ang(getstring "\n直径: "))
     )
(progn
(command "circle" "_non" p0 "d" (atof ang))
(setq h (open "c:\\abc.txt""a"))
(princ (strcat "X="(rtos x 2 3)"  Y="(rtos y 2 3)"  直径:" ang)h)
(close h)
))
(princ)
)[/php]
;;ll 画线   ii 画圆 ll1 要画直线的长度
;;自动写入c:\abc.txt文件.

;;如果你的测量结果是电子文件，就没必要这样麻烦了，可以直接画出来.

山顶洞人

多谢楼上的朋友，画圆的“ii”命令很好用，不过画线段的命令我还是点不明白，你说的假定我的属性块是“abc”是什么意思（我所以定义属性只是为了旋转线段）？使用过程中最后的画面显示那些是什么，要插入一个块吗？从使用情况看，所需的线段已经准确绘制出来了呀。
最后输出的记事本文件要是这样的格式这完美了：
X=20  Y=20  直径:20
X=20  Y=10  角度:333
X=20  Y=10  角度:552
因为如果数据多的话，横着看不方便，校对也较困难。

aeo

2. 
   
3. 
   
4. (defun c:ll1()(setq *len*(getdist "\n画线长度")))
   
5. (defun c:ll( /  ang j p0 p1 p2 x y h)
   
6. (princ "\n"ll1"设长度")
   
7. (if(not *len*)(c:ll1))
   
8. (if (and   (setq x(getreal "\nX坐标: "))
   
9.             (setq y(getreal "\nY坐标: "))
   
10.             (setq p0(list x y))
    
11.             (setq ang(getstring "\n角度: "))
    
12.      )
    
13.   (progn
    
14.   (setq j(* pi(/ (atof ang )180.))
    
15.           p1(polar p0 j (/ *len* 2.))
    
16.           p2(polar p0(+ j pi)(/ *len* 2.))
    
17.   )
    
18. (command ".line" "_non"p1 "_non" p2 "")
    
19. ;;(command "-insert" "bg""_non" p0 "1""1""0"  ang)
    
20. (setq h (open "c:\abc.txt""a"))
    
21. (princ (strcat "\nX="(rtos x 2 3)"  Y="(rtos y 2 3)"  角度:" ang) h )
    
22. (close h)
    
23. ))
    
24. (princ)
    
25. )
    
26. 
    
27. (defun c:ii( /  ang h p0  x y)
    
28. (if (and   (setq x(getreal "\nX坐标: "))
    
29.             (setq y(getreal "\nY坐标: "))
    
30.             (setq p0(list x y))
    
31.             (setq ang(getstring "\n直径: "))
    
32.      )
    
33. (progn
    
34. (command "circle" "_non" p0 "d" (atof ang))
    
35. (setq h (open "c:\abc.txt""a"))
    
36. (princ (strcat "\nX="(rtos x 2 3)"  Y="(rtos y 2 3)"  直径:" ang)h )
    
37. (close h)
    
38. ))
    
39. (princ)
    
40. )
    

<br /> <br /> (defun c:ll1()(setq *len*(getdist "\n画线长度"))) <br /> (defun c:ll( /  ang j p0 p1 p2 x y h) <br /> (princ "\n"ll1"设长度") <br /> (if(not *len*)(c:ll1)) <br /> (if (and   (setq x(getreal "\nX坐标: ")) <br />             (setq y(getreal "\nY坐标: ")) <br />             (setq p0(list x y)) <br />             (setq ang(getstring "\n角度: ")) <br />      ) <br />   (progn <br />   (setq j(* pi(/ (atof ang )180.)) <br />           p1(polar p0 j (/ *len* 2.)) <br />           p2(polar p0(+ j pi)(/ *len* 2.)) <br />   ) <br /> (command ".line" "_non"p1 "_non" p2 "") <br /> ;;(command "-insert" "bg""_non" p0 "1""1""0"  ang) <br /> (setq h (open "c:\abc.txt""a")) <br /> (princ (strcat "\nX="(rtos x 2 3)"  Y="(rtos y 2 3)"  角度:" ang) h ) <br /> (close h) <br /> )) <br /> (princ) <br /> ) <br /> <br /> (defun c:ii( /  ang h p0  x y) <br /> (if (and   (setq x(getreal "\nX坐标: ")) <br />             (setq y(getreal "\nY坐标: ")) <br />             (setq p0(list x y)) <br />             (setq ang(getstring "\n直径: ")) <br />      ) <br /> (progn <br /> (command "circle" "_non" p0 "d" (atof ang)) <br /> (setq h (open "c:\abc.txt""a")) <br /> (princ (strcat "\nX="(rtos x 2 3)"  Y="(rtos y 2 3)"  直径:" ang)h ) <br /> (close h) <br /> )) <br /> (princ) <br /> )<br />

山顶洞人

太奇妙了，十分受用，请问一下aeo学Autolisp难不难呀！如果要学应该从哪里入手？