如何自动识别键盘输入与捕捉输入

xtdwynij

xtdwynij 发表于 2013-5-14 01:15
感谢师兄发的这个代码。我不是要一触即发的！我做的功能都是对我有帮助的实用的。一触即发也只是少按了一 ...

也就是说事先我并不知道长宽。而是了交互输入我才会知道。我先去指定一个点。然后根据交互输入得出其它的点。而用了getdist函数的话只能是知道一个点的前提下才能够去用它。但是我只能够知道一个点。其它的点还是要交互输入才能够知道。这样说不知道师兄是否明白?可能是我表达不够清楚吧！明天我来个动画。
那么晚了师兄还不休息啊？身体是革命的本钱哦！小菜鸟我先下了。明天我再来补上我的问题！

xtdwynij

下面是我附上想要的郊果动画图片以及一个此例的小应用程序!
还请师兄前辈们继续出手!或者说有更好的方法指点一下小菜鸟也行!有进步就行呵呵!感激!

xtdwynij

xtdwynij 发表于 2013-5-14 09:57
下面是我附上想要的郊果动画图片以及一个此例的小应用程序!
还请师兄前辈们继续出手!或者说有更好的方法 ...

2. (defun xbjk ( / aa bb cc )
   
3.   (setvar "osmode" 515)
   
4.   (setq aa (getpoint "请指定第一点:"))
   
5.   (setq bb (getpoint aa "请指定第二点:"))
   
6.   (setq cc (distance aa (list (car bb) (cadr aa))))
   
7. )  ;这是量X轴的距离
   
8. (defun ybjk (/ dd ee gg)
   
9.   (setvar "osmode" 515)
   
10.   (setq dd (getpoint "请指定第一点:"))
    
11.   (setq ee (getpoint dd "请指定第二点:"))
    
12.   (setq gg (distance dd (list (car dd) (cadr ee))))
    
13. ) ;这是量y轴的距离
    
14. 
    
15. ;===========
    
16. (defun c:bjk ( / aa3 cirdist cirent dist ent ent1 ent2 h h1 h2 l l1  pt1 pt1_pt4 pt2 pt2_pt3 pt3 pt3_pt4 pt4 pt5 pt6 pt7 pt8 pt10)
    
17.   (setvar "cmdecho" 0)
    
18.   (setvar "osmode" 0)
    
19.   (initget "A B")
    
20.   (setq aa3 (getkword "\n A 捕捉输入 ,B 键盘输入[A捕捉输入]:"))
    
21.   (if (null aa3) (setq aa3 "A"))
    
22.   (cond
    
23.     ((= aa3 "B")
    
24.      (setq l (getreal "\n请输入飞机孔总长度:"))
    
25.      (setq h (getreal "\n请输入矩形高度:"))
    
26.      (setq l1 (getreal "\n请输入上面小孔的长度:"))
    
27.      (setq h2 (getreal "\n请输入总高度:"))
    
28.     )
    
29.     ((= aa3 "A")
    
30.        (prompt "\n请输入飞机孔总长度:")
    
31.        (setq l (xbjk))
    
32.        (prompt "\n请输入矩形高度:")
    
33.        (setq h (ybjk))
    
34.        (prompt "\n请输入上面小孔的长度:")
    
35.        (setq l1 (xbjk))
    
36.        (prompt "\n请输入总高度:")
    
37.        (setq h2 (ybjk))
    
38.     )
    
39.   )
    
40.   (setq h1 (- h2 h))
    
41.   (setq dist (- l h))
    
42.   (setq pt10 (getpoint "\n请指定一个点:"))
    
43.   (setq pt1 (polar pt10 pi (/ dist 2.)))
    
44.   (setq pt2 (polar pt1 0 dist))
    
45.   (setq pt3 (polar pt2 (/ pi 2) h))
    
46.   (setq pt4 (polar pt1 (/ pi 2) h))
    
47.   (setq pt1_pt4 (polar pt1 (/ pi 2) (/(distance pt1 pt4)2)))
    
48.   (setq pt2_pt3 (polar pt2 (/ pi 2) (/(distance pt2 pt3)2)))
    
49.   (command "line" pt3 pt4 "")
    
50.   (setq ent (entlast))
    
51.   (command "line" pt1 pt2 "")
    
52.   (command "arc" "c" pt1_pt4 pt4 pt1  "arc" "c" pt2_pt3 pt2 pt3)
    
53. 
    
54.   (setq pt3_pt4 (polar pt4 0 (/(distance pt4 pt3) 2)))
    
55.   (setq pt6 (polar pt3_pt4 pi (/ l1 2)))
    
56.   (setq pt7 (polar pt3_pt4 0 (/ l1 2)))
    
57.   (setq pt8 (polar pt3_pt4 (/ pi 2) h1))
    
58.   (command "circle" "3p" pt6 pt8 pt7)
    
59.   (setq ent2 (entlast))
    
60.   (setq ent1 (entget ent2))
    
61.   (setq cirent (cdr(assoc 10 ent1)))
    
62.   (setq cirdist (cdr (assoc 40 ent1)))
    
63.   (setq pt5 (polar cirent (/ pi -2) cirdist))
    
64.   (command "trim" ent "" (list ent2 pt5) "")
    
65.   (command "trim" ent2 "" (list ent pt3_pt4) "")
    
66.   (setvar "cmdecho" 1)
    
67.   (setvar "osmode" 3)
    
68.   (princ)
    
69. )

(defun xbjk ( / aa bb cc )<br />   (setvar "osmode" 515)<br />   (setq aa (getpoint "请指定第一点:"))<br />   (setq bb (getpoint aa "请指定第二点:")) <br />   (setq cc (distance aa (list (car bb) (cadr aa))))<br /> )  ;这是量X轴的距离<br /> (defun ybjk (/ dd ee gg)<br />   (setvar "osmode" 515)<br />   (setq dd (getpoint "请指定第一点:"))<br />   (setq ee (getpoint dd "请指定第二点:"))<br />   (setq gg (distance dd (list (car dd) (cadr ee))))<br /> ) ;这是量y轴的距离<br /> <br /> ;===========<br /> (defun c:bjk ( / aa3 cirdist cirent dist ent ent1 ent2 h h1 h2 l l1  pt1 pt1_pt4 pt2 pt2_pt3 pt3 pt3_pt4 pt4 pt5 pt6 pt7 pt8 pt10)<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (initget "A B")<br />   (setq aa3 (getkword "\n A 捕捉输入 ,B 键盘输入[A捕捉输入]:"))<br />   (if (null aa3) (setq aa3 "A"))<br />   (cond<br />     ((= aa3 "B")<br />      (setq l (getreal "\n请输入飞机孔总长度:"))<br />      (setq h (getreal "\n请输入矩形高度:"))<br />      (setq l1 (getreal "\n请输入上面小孔的长度:"))<br />      (setq h2 (getreal "\n请输入总高度:"))<br />     )<br />     ((= aa3 "A")<br />        (prompt "\n请输入飞机孔总长度:")<br />        (setq l (xbjk))<br />        (prompt "\n请输入矩形高度:")<br />        (setq h (ybjk))<br />        (prompt "\n请输入上面小孔的长度:")<br />        (setq l1 (xbjk))<br />        (prompt "\n请输入总高度:")<br />        (setq h2 (ybjk))<br />     )<br />   )<br />   (setq h1 (- h2 h))<br />   (setq dist (- l h))<br />   (setq pt10 (getpoint "\n请指定一个点:"))<br />   (setq pt1 (polar pt10 pi (/ dist 2.)))<br />   (setq pt2 (polar pt1 0 dist))<br />   (setq pt3 (polar pt2 (/ pi 2) h))<br />   (setq pt4 (polar pt1 (/ pi 2) h))<br />   (setq pt1_pt4 (polar pt1 (/ pi 2) (/(distance pt1 pt4)2)))<br />   (setq pt2_pt3 (polar pt2 (/ pi 2) (/(distance pt2 pt3)2)))<br />   (command "line" pt3 pt4 "")<br />   (setq ent (entlast))<br />   (command "line" pt1 pt2 "")<br />   (command "arc" "c" pt1_pt4 pt4 pt1  "arc" "c" pt2_pt3 pt2 pt3)<br /> <br />   (setq pt3_pt4 (polar pt4 0 (/(distance pt4 pt3) 2)))<br />   (setq pt6 (polar pt3_pt4 pi (/ l1 2)))<br />   (setq pt7 (polar pt3_pt4 0 (/ l1 2)))<br />   (setq pt8 (polar pt3_pt4 (/ pi 2) h1))<br />   (command "circle" "3p" pt6 pt8 pt7)<br />   (setq ent2 (entlast))<br />   (setq ent1 (entget ent2))<br />   (setq cirent (cdr(assoc 10 ent1)))<br />   (setq cirdist (cdr (assoc 40 ent1)))<br />   (setq pt5 (polar cirent (/ pi -2) cirdist))<br />   (command "trim" ent "" (list ent2 pt5) "")<br />   (command "trim" ent2 "" (list ent pt3_pt4) "")<br />   (setvar "cmdecho" 1)<br />   (setvar "osmode" 3)<br />   (princ)<br /> )

牢固

xtdwynij 发表于 2013-5-14 09:57
下面是我附上想要的郊果动画图片以及一个此例的小应用程序!
还请师兄前辈们继续出手!或者说有更好的方法 ...

根据尺寸交互直接就可以画出来，为什么需要编程序？这是最基本的交互操作啊！

xtdwynij

牢固 发表于 2013-5-14 10:11
根据尺寸交互直接就可以画出来，为什么需要编程序？这是最基本的交互操作啊！

我知道!但是它型号多的很!而且一天的工作量也大.所以想尽量的多做好一点的程序给自己方便!以减少工作量!单单用画的也很快画出来.但还是编一个用着好!省时省力!呵呵!G版出一下招呗

ll_j

xtdwynij 发表于 2013-5-14 09:59

如果我的理解是正确的话，似乎问题被你搞复杂了，知道一个点，知道其他点与这个点的相对关系，其他点是应该计算得到的，而不是一个一个交互输入得到，如果像你这样每个点都交互，就失去编程的意义了。
就本例而言，最有效的函数应该是：polar

xtdwynij

ll_j 发表于 2013-5-14 10:22
如果我的理解是正确的话，似乎问题被你搞复杂了，知道一个点，知道其他点与这个点的相对关系，其他点是应 ...

ll_j 师兄你好!我交互输入的四个数值是产品的尺寸.只有先得到产品的尺寸才能够去得出其它的点.假如不交互输入的话那么就只能固定画一种型号的产品!而它的插入点也就是指定点是在中间,也是方便以后的插入的!

牢固

xtdwynij 发表于 2013-5-14 10:27
ll_j 师兄你好!我交互输入的四个数值是产品的尺寸.只有先得到产品的尺寸才能够去得出其它的点.假如不交互 ...

参数化编程，四个数值作为参数输入，其他点根据这四个参数计算出来即可！很简单的问题，大家被你搞得晕晕乎乎！

xtdwynij

牢固 发表于 2013-5-14 10:37
参数化编程，四个数值作为参数输入，其他点根据这四个参数计算出来即可！很简单的问题，大家被你搞得晕晕 ...

不好意思啊G版!是很简单的问题!但我想能不能让它们二个自动去识别键盘输入还是捕捉输入呢?我写的这一个是要去选一个的.而且捕捉就只能捕捉输入.键盘就只能键盘输入!这个我就不懂了.知识点太少了.

xtdwynij

xtdwynij 发表于 2013-5-14 10:42
不好意思啊G版!是很简单的问题!但我想能不能让它们二个自动去识别键盘输入还是捕捉输入呢?我写的这一个是 ...

是四个数值能捕捉输入又可以键盘输入!可以自动识别的!这个我就不懂了!您明白我要表达的意思么?

牢固

xtdwynij 发表于 2013-5-14 10:45
是四个数值能捕捉输入又可以键盘输入!可以自动识别的!这个我就不懂了!您明白我要表达的意思么?

1. (defun xbjk (InsPt a b c d)
   
2.   (setq pt7 (polar inspt (* pi 0.5) d)
   
3.         pt2 (polar inspt pi (* 0.5 (- a c)))
   
4.         pt3 (polar inspt 0 (* 0.5 (- a c)))
   
5.         pt9 (polar pt2 (* pi 0.5) c)
   
6.         pt5 (polar pt3 (* pi 0.5) c)
   
7.         pt8 (polar pt9 0 (* 0.5 (- a b c)))
   
8.         pt6 (polar pt8 0 b)
   
9.         pt1 (polar pt2 (* pi 0.75) (* 6 (sqrt 2) 0.5))
   
10.         pt4 (polar pt3 (* pi 0.25) (* 6 (sqrt 2) 0.5))
    
11.         )
    
12.   (command "_pline"
    
13.            "_non" pt2
    
14.            "a" "s"
    
15.            "_non" pt1
    
16.            "_non" pt9
    
17.            "l"
    
18.            "_non" pt8
    
19.            "a" "s"
    
20.            "_non" pt7
    
21.            "_non" pt6
    
22.            "l"
    
23.            "_non" pt5
    
24.            "a" "s"
    
25.            "_non" pt4
    
26.            "_non" pt3
    
27.            "l" "c"
    
28.            )
    
29.   )
    
30. ;;测试
    
31. (XBJK (getpoint "\n摆放位置点:") (getdist "\n输入a距离:") (getdist "\n输入b距离:" )  (getdist "\n输入c距离:" )  (getdist "\n输入d距离:" ) )

(defun xbjk (InsPt a b c d)<br />   (setq pt7 (polar inspt (* pi 0.5) d)<br />         pt2 (polar inspt pi (* 0.5 (- a c)))<br />         pt3 (polar inspt 0 (* 0.5 (- a c)))<br />         pt9 (polar pt2 (* pi 0.5) c)<br />         pt5 (polar pt3 (* pi 0.5) c)<br />         pt8 (polar pt9 0 (* 0.5 (- a b c)))<br />         pt6 (polar pt8 0 b)<br />         pt1 (polar pt2 (* pi 0.75) (* 6 (sqrt 2) 0.5))<br />         pt4 (polar pt3 (* pi 0.25) (* 6 (sqrt 2) 0.5))<br />         )<br />   (command "_pline"<br />            "_non" pt2<br />            "a" "s"<br />            "_non" pt1<br />            "_non" pt9<br />            "l"<br />            "_non" pt8<br />            "a" "s"<br />            "_non" pt7<br />            "_non" pt6<br />            "l"<br />            "_non" pt5<br />            "a" "s"<br />            "_non" pt4<br />            "_non" pt3<br />            "l" "c"<br />            )<br />   )<br /> ;;测试<br /> (XBJK (getpoint "\n摆放位置点:") (getdist "\n输入a距离:") (getdist "\n输入b距离:" )  (getdist "\n输入c距离:" )  (getdist "\n输入d距离:" ) )

xtdwynij

牢固 发表于 2013-5-14 11:06

感谢G版出手!把这些要交互的参数全部传出去就行了!以前一直都没有想到还可以这个样!很简单的问题呵呵!下次发贴之前一定贴上动画以及一个小的应用程序.我就是因为怕太简单了大神们不想看.因为代码又臭又长.这才贴了功能出来.
在此也感谢各位师兄出手帮忙!

ll_j

也写了一小段，不过又迟了一步。
程序没做容错处理，点号也和楼主贴图不同，只是逆时针排一下，大概表示一下程序过程而已。

1. 
   
2. 
   
3. (defun c:tt ()
   
4.   (setq pt0 (getpoint "\n指定孔洞基底中心点：")
   
5.         h0  (getdist pt0 "\n输入孔洞总高：")
   
6.         h1  (getdist pt0 "\n输入主孔高：")
   
7.         B0  (getdist "\n输入孔洞总宽：")
   
8.         B1  (getdist "\n输入顶孔宽度：")
   
9.   )
   
10.   (setq pt1 (polar pt0 0.0 (/ (- B0 h1) 2))
    
11.         pt2 (polar pt1 0.0 (/ h1 2))
    
12.         pt2 (polar pt2 (/ pi 2) (/ h1 2))
    
13.         pt3 (polar pt1 (/ pi 2) h1)
    
14.         pt4 (polar pt3 pi (/ (- B0 h1 B1) 2))
    
15.         pt5 (polar pt0 (/ pi 2) h0)
    
16.         pt6 (polar pt4 (- pi) B1)
    
17.         pt7 (polar pt3 (- pi) (- B0 h1))
    
18.         pt8 (polar pt2 (- pi) B0)
    
19.         pt9 (polar pt1 (- pi) (- B0 h1))
    
20.   )
    
21.   (command ".line" pt9 pt1 "")
    
22.   (command ".arc" pt1 pt2 pt3)
    
23.   (command ".line" pt3 pt4 "")
    
24.   (command ".arc" pt4 pt5 pt6)
    
25.   (command ".line" pt6 pt7 "")
    
26.   (command ".arc" pt7 pt8 pt9)
    
27.   (princ)
    
28. )
    

<br /> <br /> (defun c:tt ()<br />   (setq pt0 (getpoint "\n指定孔洞基底中心点：")<br />         h0  (getdist pt0 "\n输入孔洞总高：")<br />         h1  (getdist pt0 "\n输入主孔高：")<br />         B0  (getdist "\n输入孔洞总宽：")<br />         B1  (getdist "\n输入顶孔宽度：")<br />   )<br />   (setq pt1 (polar pt0 0.0 (/ (- B0 h1) 2))<br />         pt2 (polar pt1 0.0 (/ h1 2))<br />         pt2 (polar pt2 (/ pi 2) (/ h1 2))<br />         pt3 (polar pt1 (/ pi 2) h1)<br />         pt4 (polar pt3 pi (/ (- B0 h1 B1) 2))<br />         pt5 (polar pt0 (/ pi 2) h0)<br />         pt6 (polar pt4 (- pi) B1)<br />         pt7 (polar pt3 (- pi) (- B0 h1))<br />         pt8 (polar pt2 (- pi) B0)<br />         pt9 (polar pt1 (- pi) (- B0 h1))<br />   )<br />   (command ".line" pt9 pt1 "")<br />   (command ".arc" pt1 pt2 pt3)<br />   (command ".line" pt3 pt4 "")<br />   (command ".arc" pt4 pt5 pt6)<br />   (command ".line" pt6 pt7 "")<br />   (command ".arc" pt7 pt8 pt9)<br />   (princ)<br /> )<br />

xtdwynij

ll_j 发表于 2013-5-14 11:38
也写了一小段，不过又迟了一步。
程序没做容错处理，点号也和楼主贴图不同，只是逆时针排一下，大概表示一 ...

感谢ll_j 师兄!呵呵.做容错处理也没有什么!加不加都不影响使用,并且大多数情况并不会用到它.等到我会用这个函数了估计也是我没有什么可学了才会去学这个容错处理.感觉不怎么实用!

xtdwynij

xtdwynij 发表于 2013-5-14 11:44
感谢ll_j 师兄!呵呵.做容错处理也没有什么!加不加都不影响使用,并且大多数情况并不会用到它.等到我会用这 ...

一直以来都以为getdist函数要有一个参考点的.原来没有也是可以的!摆了个大乌龙!晕死