[求助]重新制作中点捕捉

英雄无敌

看了看20楼的代码，试了一下，但好像用不了，也没有去深究原因，但也受其启发，将我的程序改了一下，简化了代码，缩短了程序，并将程序做成一个通用程序，调用都只要将要执行的命令发给它就行了，程序中有两个示例，一个是LINE，一个是PLINE。

 

zml84

没有最好，只有更好，希望能完善之。。

3. (defun C:TT (/ LST)
4.     (setq *LST_OS* '(("" 0 "NON" "无")
5.              ("E" 1 "END" "端点")
6.              ("M" 2 "MID" "中点")
7.              ("C" 4 "CEN" "圆心")
8.              ("D" 8 "NOD" "节点")
9.              ("Q" 16 "QUA" "象限点")
10.              ("I" 32 "INT" "交点")
11.              ("S" 64 "INS" "插入点")
12.              ("P" 128 "PER" "垂足")
13.              ("T" 256 "TAN" "切点")
14.              ("N" 512 "NEA" "最近点")
15.              ("" 1024 "QUI" "快速")
16.              ("A" 2048 "APP" "外观交点")
17.              ("X" 4096 "EXT" "尺寸线")
18.              ("L" 8192 "PAR" "平行")
19.             )
20.     )
21.     ;;定义命令
22.     (foreach LST '(("L" "_.LINE")
23.            ("PL" "_.PLINE")
24.            ("C" "_.CIRCLE")
25.            ("A" "_.ARC")
26.            ("EL" "_.ellipse")
27.            ("SP" "_.SPLINE")
28.            ("RC" "_.RECTANG")
29.           )
30.     (eval (list 'defun
31.             (read (strcat "C:" (car LST)))
32.             (list '/)
33.             (list '*DRAW* (cadr LST))
34.             (list 'princ)
35.           )
36.     )
37.     ) ;_结束 foreach
38. )
39. ;;;====================================================
40. (defun *DRAW* (CMD / LST OS_OLD TMP INT PT)
41.     (setvar "CMDECHO" 1)
42.     (setq OS_OLD (getvar "osmode"))
43.     ;;
44.     (command CMD)
45.     (while (/= (getvar "cmdactive") 0) ;_TEST
46.     (setq TMP (grread t 2 0))
47.     (cond
48.         ;;1、击鼠标右键
49.         ((= (car TMP) 12)
50.          (command "")
51.         )
52.         ;;2、击左键
53.         ((= (car TMP) 3)
54.          (setq PT (cadr TMP))
55.          (command PT)
56.         )
57.         ;;3、按下键盘键
58.         ((= (car TMP) 2)
59.          (setq INT (cadr TMP))
60.          (cond
61.          ;;回车或者空格键，则退出
62.          ((or (= INT 13)
63.               (= INT 32)
64.           )
65.           (command "")
66.          )
67.          ;;
68.          ((or (setq LST (assoc (chr INT) *LST_OS*))
69.               (setq LST (assoc (chr (+ INT 32)) *LST_OS*))
70.               (setq LST (assoc (chr (- INT 32)) *LST_OS*))
71.           )
72.           ;;(princ  (chr INT))
73.           (command (caddr LST))
74.           (setvar "osmode" (cadr LST))
75.          )
76.          )
77.         )
78.     ) ;_结束 cond
79.     ) ;_结束 while
80.     (setvar "osmode" OS_OLD)
81.     (princ)
82. )

(defun C:TT (/ LST)     (setq *LST_OS* '(("" 0 "NON" "无")              ("E" 1 "END" "端点")              ("M" 2 "MID" "中点")              ("C" 4 "CEN" "圆心")              ("D" 8 "NOD" "节点")              ("Q" 16 "QUA" "象限点")              ("I" 32 "INT" "交点")              ("S" 64 "INS" "插入点")              ("P" 128 "PER" "垂足")              ("T" 256 "TAN" "切点")              ("N" 512 "NEA" "最近点")              ("" 1024 "QUI" "快速")              ("A" 2048 "APP" "外观交点")              ("X" 4096 "EXT" "尺寸线")              ("L" 8192 "PAR" "平行")             )     )     ;;定义命令     (foreach LST '(("L" "_.LINE")            ("PL" "_.PLINE")            ("C" "_.CIRCLE")            ("A" "_.ARC")            ("EL" "_.ellipse")            ("SP" "_.SPLINE")            ("RC" "_.RECTANG")           )     (eval (list 'defun             (read (strcat "C:" (car LST)))             (list '/)             (list '*DRAW* (cadr LST))             (list 'princ)           )     )     ) ;_结束 foreach ) ;;;==================================================== (defun *DRAW* (CMD / LST OS_OLD TMP INT PT)     (setvar "CMDECHO" 1)     (setq OS_OLD (getvar "osmode"))     ;;     (command CMD)     (while (/= (getvar "cmdactive") 0) ;_TEST     (setq TMP (grread t 2 0))     (cond         ;;1、击鼠标右键         ((= (car TMP) 12)          (command "")         )         ;;2、击左键         ((= (car TMP) 3)          (setq PT (cadr TMP))          (command PT)         )         ;;3、按下键盘键         ((= (car TMP) 2)          (setq INT (cadr TMP))          (cond          ;;回车或者空格键，则退出          ((or (= INT 13)               (= INT 32)           )           (command "")          )          ;;          ((or (setq LST (assoc (chr INT) *LST_OS*))               (setq LST (assoc (chr (+ INT 32)) *LST_OS*))               (setq LST (assoc (chr (- INT 32)) *LST_OS*))           )           ;;(princ  (chr INT))           (command (caddr LST))           (setvar "osmode" (cadr LST))          )          )         )     ) ;_结束 cond     ) ;_结束 while     (setvar "osmode" OS_OLD)     (princ) )