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

李青松

重慶崽兒 发表于 2014-3-28 22:20
那啥，把那个while循环放在下面就OK了！

重慶崽兒 ：插入点点一次后程序就结束，不要多次点插入点。麻烦你改一改.对我来说很重要。

重慶崽兒

李青松 发表于 2014-3-30 16:53
重慶崽兒 ：插入点点一次后程序就结束，不要多次点插入点。麻烦你改一改.对我来说很重要。

那插入点点一次就结束的话，图形不就画在同一个地方了，没懂你的意思。。。。

李青松

重慶崽兒 发表于 2014-3-30 17:07
那插入点点一次就结束的话，图形不就画在同一个地方了，没懂你的意思。。。。

重慶崽兒：这样吧，先在屏幕上指点插入点，然后再输入a回车,b 回车,c 回车命令结束。

我的qq是1024161729   方便的话加一下我的qq

下面还有一个类似的，麻烦你看看

重慶崽兒

李青松 发表于 2014-3-30 18:16
重慶崽兒：这样吧，先在屏幕上指点插入点，然后再输入a回车,b 回车,c 回车命令结 ...

哦， 你的意思是指定插入点后，输入A B C后就画一个 对吧

ZZXXQQ

2. (defun c:tt()
   
3.   (setvar "CMDECHO" 0)
   
4.   (if (not (numberp ma)) (setq ma 1000.0))
   
5.   (if (not (numberp mb)) (setq mb 500.0))
   
6.   (if (not (numberp mc)) (setq mc 600.0))
   
7.   (setq A (getdist (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))
   
8.   (setq A (if A A ma))
   
9.   (setq B (getdist (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))
   
10.   (setq B (if B B mb))
    
11.   (setq C (getdist (strcat "\n请输入C的值" "<" (rtos mc 2 2) ">")))
    
12.   (setq C (if C C mc))
    
13.   (if (setq pt (getpoint "\n 请指定插入点：")) (progn
    
14.    (setq pc (mapcar '+ pt (list A B)))
    
15.    (setq pe (mapcar '+ pc (list 0 500))
    
16.          pff (mapcar '+ pe (list 0 C))
    
17.          pg (polar pff pi (/ A 2))
    
18.          ph (polar pe pi (/ A 2)))
    
19.    (command "_.RECTANG" pt pc "PLINE" ph pe pff pg "")
    
20.   ))
    
21.   (setq ma A mb B mc C)
    
22.   (setvar "CMDECHO" 1)
    
23.   (princ)
    
24. )
    

(defun c:tt()<br />   (setvar "CMDECHO" 0)<br />   (if (not (numberp ma)) (setq ma 1000.0))<br />   (if (not (numberp mb)) (setq mb 500.0))<br />   (if (not (numberp mc)) (setq mc 600.0))<br />   (setq A (getdist (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))<br />   (setq A (if A A ma))<br />   (setq B (getdist (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))<br />   (setq B (if B B mb))<br />   (setq C (getdist (strcat "\n请输入C的值" "<" (rtos mc 2 2) ">")))<br />   (setq C (if C C mc))<br />   (if (setq pt (getpoint "\n 请指定插入点：")) (progn<br />    (setq pc (mapcar '+ pt (list A B)))<br />    (setq pe (mapcar '+ pc (list 0 500))<br />          pff (mapcar '+ pe (list 0 C))<br />          pg (polar pff pi (/ A 2))<br />          ph (polar pe pi (/ A 2)))<br />    (command "_.RECTANG" pt pc "PLINE" ph pe pff pg "")<br />   ))<br />   (setq ma A mb B mc C)<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )<br />

2. (defun c:tt2()
   
3.   (setvar "CMDECHO" 0)
   
4.   (if (not (numberp ma)) (setq ma 1000.0))
   
5.   (if (not (numberp mb)) (setq mb 500.0))
   
6.   (setq A (getdist (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))
   
7.   (setq A (if A A ma))
   
8.   (setq B (getdist (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))
   
9.   (setq B (if B B mb))
   
10.   (if (setq pc (getpoint "\n 请指定插入点：")) (progn
    
11.    (setq r (/ A 2))
    
12.    (setq p1 (mapcar '+ pc (list r (+ r 500))))
    
13.    (setq p2 (mapcar '+ p1 (list 0 B))
    
14.          p3 (polar p1 pi r)
    
15.          p4 (polar p2 pi r))
    
16.    (command "_.CIRCLE" pc r "PLINE" p4 p2 p1 p3 "")
    
17.   ))
    
18.   (setq ma A mb B)
    
19.   (setvar "CMDECHO" 1)
    
20.   (princ)
    
21. )
    

(defun c:tt2()<br />   (setvar "CMDECHO" 0)<br />   (if (not (numberp ma)) (setq ma 1000.0))<br />   (if (not (numberp mb)) (setq mb 500.0))<br />   (setq A (getdist (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))<br />   (setq A (if A A ma))<br />   (setq B (getdist (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))<br />   (setq B (if B B mb))<br />   (if (setq pc (getpoint "\n 请指定插入点：")) (progn<br />    (setq r (/ A 2))<br />    (setq p1 (mapcar '+ pc (list r (+ r 500))))<br />    (setq p2 (mapcar '+ p1 (list 0 B))<br />          p3 (polar p1 pi r)<br />          p4 (polar p2 pi r))<br />    (command "_.CIRCLE" pc r "PLINE" p4 p2 p1 p3 "")<br />   ))<br />   (setq ma A mb B)<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )<br />

李青松

重慶崽兒 发表于 2014-3-30 22:47
哦， 你的意思是指定插入点后，输入A B C后就画一个 对吧

对的，完全正确

李青松

ZZXXQQ 发表于 2014-3-31 08:31

两个程序运行不了，哥们

重慶崽兒

ZZXXQQ 发表于 2014-3-31 08:31

Z版的代码就是精炼，顶！
  那啥，tt2中那个(setq p1 (mapcar '+ pc (list r (+ r 500)))后面应该还有个括号给忘加了。

llsheng_73

有问题求助是应该的，但不能什么都不会，只会appload,然后运行命令
一般情况，在程序能达到基本要求的情况下，一些细节的地方自己改下就行了，不要总是以新手、不会等作为理由，不会是正常的，不学也没什么错，但来到这里就是因为不会要学才来的，总不能什么都在问，但总不见长进吧，这是学习交流的地方而不是义务编程的
这样说并不是针对哪一个人，只是个人觉得应当这样

李青松

llsheng_73 发表于 2014-4-1 01:31
有问题求助是应该的，但不能什么都不会，只会appload,然后运行命令
一般情况，在程序能达到基本要求的情况 ...

哪里有系统的，详细的视频教程，关于lsp的