A,B,C三个值在命令行中输入，可以是输入A回车， 输入B回车， 输入C回车，用lsp...

李青松

1，下面的矩形是多段线，上面的线条是是单独的三根线
2，上下距离是500，这个值在lsp程序中预先设定，可以修改。
3，A,B,C三个值在命令行中输入，可以是输入A回车，输入B回车，输入C回车.
4，上面那个图的宽度是下面那个图的宽度的一半，也就是A/2.两个图的
最右边是在一条垂直线上。
5,用lsp程序实现，一次性把上下两个图都画出来。尺寸标注不用画。
6，因为在工作经常用到，所以想用程序来实现，有谁可以帮到我。

xyp1964

2. 
   
3. ;; 伪源码需要e派工具箱(XCAD)的支持
   
4. (defun c:tt (/ ilst)
   
5.   (xyp-cmdla0)
   
6.   (defun main-pro (/ p1 p2 p3 p4 p5 p6 s1 s2)
   
7.     (while (setq p1 (getpoint "\n右下角基点<退出>: "))
   
8.       (setq p2 (xyp-Pt2XY p1 d1 d2)
   
9.             p3 (xyp-Pt2Y p2 500)
   
10.             p4 (xyp-Pt2X p3 (* d1 -0.5))
    
11.             p5 (xyp-Pt2Y p3 d3)
    
12.             p6 (xyp-Pt2X p5 (* d1 -0.5))
    
13.             s1 (xyp-rectang p1 p2)
    
14.             s2 (xyp-Pline (list p4 p3 p5 p6) nil)
    
15.       )
    
16.     )
    
17.   )
    
18.   (xyp-initSet '(d1 d2 d3) '(1000 500 600))
    
19.   (setq ilst '(("" "参数" ":boxed_column{")
    
20.                ("d1" "A" "int" "8")
    
21.                ("d2" "B" "int" "8")
    
22.                ("d3" "C" "int" "8")
    
23.                "spacer;"
    
24.                "}"
    
25.               )
    
26.   )
    
27.   (if (= (xyp-Dcl-Init Ilst "【ABC】" t) 1)(main-pro))
    
28.   (xyp-cmdla1)
    
29. )
    

<br /> ;; 伪源码需要e派工具箱(XCAD)的支持<br /> (defun c:tt (/ ilst)<br />   (xyp-cmdla0)<br />   (defun main-pro (/ p1 p2 p3 p4 p5 p6 s1 s2)<br />     (while (setq p1 (getpoint "\n右下角基点<退出>: "))<br />       (setq p2 (xyp-Pt2XY p1 d1 d2)<br />             p3 (xyp-Pt2Y p2 500)<br />             p4 (xyp-Pt2X p3 (* d1 -0.5))<br />             p5 (xyp-Pt2Y p3 d3)<br />             p6 (xyp-Pt2X p5 (* d1 -0.5))<br />             s1 (xyp-rectang p1 p2)<br />             s2 (xyp-Pline (list p4 p3 p5 p6) nil)<br />       )<br />     )<br />   )<br />   (xyp-initSet '(d1 d2 d3) '(1000 500 600))<br />   (setq ilst '(("" "参数" ":boxed_column{")<br />                ("d1" "A" "int" "8")<br />                ("d2" "B" "int" "8")<br />                ("d3" "C" "int" "8")<br />                "spacer;"<br />                "}"<br />               )<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【ABC】" t) 1)(main-pro))<br />   (xyp-cmdla1)<br /> )<br />

lsjj

為了這小玩意還需要下載好大的工具箱啊

lucas_3333

lsjj 发表于 2014-3-27 15:15
為了這小玩意還需要下載好大的工具箱啊

经过技术分析，品茗新秀与李青松系同一人

Q1241274614

就是一个天天要程序的鸟人！别理他就是！

重慶崽兒

1. (defun c:tt()
   
2.   (setq p 1)
   
3.   (setq ma 1000 mb 500 mc 600)
   
4.   (while (= p 1)
   
5.     (setq A (getreal (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))
   
6.     (cond
   
7.       ((= A nil) (setq A ma))
   
8.     )
   
9.     (while (<= A 0)
   
10.      (progn
    
11.       (print "输入错误，请重新输入")
    
12.       (setq A (getreal (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))
    
13.      )
    
14.     )
    
15.     (setq B (getreal (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))
    
16.     (cond
    
17.       ((= B nil) (setq B mb))
    
18.     )
    
19.     (while (<= B 0)
    
20.      (progn
    
21.       (print "输入错误，请重新输入")
    
22.       (setq B (getreal (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))
    
23.      )
    
24.     )
    
25.     (setq C (getreal (strcat "\n请输入C的值" "<" (rtos mc 2 2) ">")))
    
26.     (cond
    
27.       ((= C nil) (setq C mc))
    
28.     )
    
29.     (while (<= C 0)
    
30.      (progn
    
31.       (print "输入错误，请重新输入")
    
32.       (setq C (getreal (strcat "\n请输入C的值" "<" (rtos mc 2 2) ">")))
    
33.      )
    
34.     )
    
35.     (setq pt (getpoint "\n 请指定插入点："))
    
36.     (setq pb (polar pt 0 A) pc (polar pb (/ pi 2.0) B) pd (polar pc pi A))
    
37.     (setq pe (polar pb (/ pi 2.0) (+ B 500.0)) pff (polar pb (/ pi 2.0) (+ B 500.0 C)) pg (polar pff pi (/ A 2.0)) ph (polar pe pi (/ A 2.0)))
    
38.     (command "PLINE" pt pb pc pd "c")
    
39.     (command "LINE" ph pe pff pg "")
    
40.     (setq ma A mb B mc C)
    
41.     (princ)
    
42.   )
    
43. )

(defun c:tt()<br />   (setq p 1)<br />   (setq ma 1000 mb 500 mc 600)<br />   (while (= p 1)<br />     (setq A (getreal (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))<br />     (cond<br />       ((= A nil) (setq A ma))<br />     )<br />     (while (<= A 0)<br />      (progn <br />       (print "输入错误，请重新输入")<br />       (setq A (getreal (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))<br />      ) <br />     )<br />     (setq B (getreal (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))<br />     (cond<br />       ((= B nil) (setq B mb))<br />     )<br />     (while (<= B 0)<br />      (progn <br />       (print "输入错误，请重新输入")<br />       (setq B (getreal (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))<br />      ) <br />     )<br />     (setq C (getreal (strcat "\n请输入C的值" "<" (rtos mc 2 2) ">")))<br />     (cond<br />       ((= C nil) (setq C mc))<br />     )<br />     (while (<= C 0)<br />      (progn <br />       (print "输入错误，请重新输入")<br />       (setq C (getreal (strcat "\n请输入C的值" "<" (rtos mc 2 2) ">")))<br />      ) <br />     )<br />     (setq pt (getpoint "\n 请指定插入点："))<br />     (setq pb (polar pt 0 A) pc (polar pb (/ pi 2.0) B) pd (polar pc pi A))<br />     (setq pe (polar pb (/ pi 2.0) (+ B 500.0)) pff (polar pb (/ pi 2.0) (+ B 500.0 C)) pg (polar pff pi (/ A 2.0)) ph (polar pe pi (/ A 2.0)))<br />     (command "PLINE" pt pb pc pd "c")<br />     (command "LINE" ph pe pff pg "")<br />     (setq ma A mb B mc C)<br />     (princ)<br />   )<br /> )

实验了一下，不知道为啥，有时候画出来线是歪的，但大多时候又是对的，不知道为什么，你借鉴下就成，呵呵，大神莫笑！

Andyhon

关了捕捉再试试

李青松

重慶崽兒 发表于 2014-3-27 21:19
实验了一下，不知道为啥，有时候画出来线是歪的，但大多时候又是对的，不知道为什么，你借鉴下就成，呵 ...

运行一次就行了，运行完一次不要自动运行第2次，改一下就ok了，谢谢

重慶崽兒

Andyhon 发表于 2014-3-27 21:25
关了捕捉再试试

呵呵  好像还真是，呵呵，不知道什么原因啊，还请大大解答下

重慶崽兒

李青松 发表于 2014-3-28 09:17
运行一次就行了，运行完一次不要自动运行第2次，改一下就ok了，谢谢

1. (defun c:tt()
   
2.   (setq p 1)
   
3.   (setq ma 1000 mb 500 mc 600)
   
4.     (setq A (getreal (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))
   
5.     (cond
   
6.       ((= A nil) (setq A ma))
   
7.     )
   
8.     (while (<= A 0)
   
9.      (progn
   
10.       (print "输入错误，请重新输入")
    
11.       (setq A (getreal (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))
    
12.      )
    
13.     )
    
14.     (setq B (getreal (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))
    
15.     (cond
    
16.       ((= B nil) (setq B mb))
    
17.     )
    
18.     (while (<= B 0)
    
19.      (progn
    
20.       (print "输入错误，请重新输入")
    
21.       (setq B (getreal (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))
    
22.      )
    
23.     )
    
24.     (setq C (getreal (strcat "\n请输入C的值" "<" (rtos mc 2 2) ">")))
    
25.     (cond
    
26.       ((= C nil) (setq C mc))
    
27.     )
    
28.     (while (<= C 0)
    
29.      (progn
    
30.       (print "输入错误，请重新输入")
    
31.       (setq C (getreal (strcat "\n请输入C的值" "<" (rtos mc 2 2) ">")))
    
32.      )
    
33.     )
    
34.     (while (= p 1)
    
35.       (setq pt (getpoint "\n 请指定插入点："))
    
36.       (setq pb (polar pt 0 A) pc (polar pb (/ pi 2.0) B) pd (polar pc pi A))
    
37.       (setq pe (polar pb (/ pi 2.0) (+ B 500.0)) pff (polar pb (/ pi 2.0) (+ B 500.0 C)) pg (polar pff pi (/ A 2.0)) ph (polar pe pi (/ A 2.0)))
    
38.       (command "PLINE" pt pb pc pd "c")
    
39.       (command "LINE" ph pe pff pg "")
    
40.       (setq ma A mb B mc C)
    
41.       (princ)
    
42.     )  
    
43. )

(defun c:tt()<br />   (setq p 1)<br />   (setq ma 1000 mb 500 mc 600)<br />     (setq A (getreal (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))<br />     (cond<br />       ((= A nil) (setq A ma))<br />     )<br />     (while (<= A 0)<br />      (progn <br />       (print "输入错误，请重新输入")<br />       (setq A (getreal (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))<br />      ) <br />     )<br />     (setq B (getreal (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))<br />     (cond<br />       ((= B nil) (setq B mb))<br />     )<br />     (while (<= B 0)<br />      (progn <br />       (print "输入错误，请重新输入")<br />       (setq B (getreal (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))<br />      ) <br />     )<br />     (setq C (getreal (strcat "\n请输入C的值" "<" (rtos mc 2 2) ">")))<br />     (cond<br />       ((= C nil) (setq C mc))<br />     )<br />     (while (<= C 0)<br />      (progn <br />       (print "输入错误，请重新输入")<br />       (setq C (getreal (strcat "\n请输入C的值" "<" (rtos mc 2 2) ">")))<br />      ) <br />     )<br />     (while (= p 1)<br />       (setq pt (getpoint "\n 请指定插入点："))<br />       (setq pb (polar pt 0 A) pc (polar pb (/ pi 2.0) B) pd (polar pc pi A))<br />       (setq pe (polar pb (/ pi 2.0) (+ B 500.0)) pff (polar pb (/ pi 2.0) (+ B 500.0 C)) pg (polar pff pi (/ A 2.0)) ph (polar pe pi (/ A 2.0)))<br />       (command "PLINE" pt pb pc pd "c")<br />       (command "LINE" ph pe pff pg "")<br />       (setq ma A mb B mc C)<br />       (princ)<br />     )  <br /> )

那啥，把那个while循环放在下面就OK了！