[求助]如何实现类似PE的混合输入控制？

EPISODE

在命令行键入PE，回显“PEDIT 选择多段线或 [多条(M)]”，此时可以选取多段线对象，也可以键入“M”，用LISP编程，如何实现这种混合输入控制？请帮忙指点，谢谢！

meflying

这并不是混合输入控制,这只是CAD命令的简化,在acad.pgp文件里设置及修改.很容易看明白的.

混合输入控制只有在程序运行时要求用户输入时使用,查看INITGET函数及GETXXX函数

EPISODE

谢谢！
不过，看来我没将问题说清楚，我说要问的是：在程序运行时要求用户输入时，既允许用户选取某个对象，又允许用户键入一个字符改变运行流程，就像PEDIT开始时一样。这种情况如何用LISP编程？

lockmyeye

这是一个对多段线进行编辑的程序
原来是因为有很多的顶点要进行删除，另外要增加一些顶点，用pedit很费时间，进行了修改。

主要部分

(SETQ modify_mode "Add")                          ;预设模式
(WHILE (/= modify_mode "eXit")
    (PRINC (STRCAT "\n\tAdd增加点/Del删除点/Move移动点/eXit退出<"
                   (COND ((= "Move" modify_mode) "Move移动点")
                         ((= "Add" modify_mode) "Add增加点")
                         ((= "Del" modify_mode) "Del删除点")
                   )
                   ">:"
           )
    )
    (SETQ data (GRREAD nil))
    (COND ((= 2 (CAR data))                       ;键盘输入
           (COND ((= 120 (CADR data)) (SETQ modify_mode "eXit"))
                 ((OR (= 65 (CADR data)) (= 97 (CADR data))) (SETQ modify_mode "Add"))
                 ((OR (= 68 (CADR data)) (= 100 (CADR data))) (SETQ modify_mode "Del"))
                 ((OR (= 77 (CADR data)) (= 109 (CADR data))) (SETQ modify_mode "Move"))
           )
          )
          ((= 3 (CAR data))                       ;左键
           (. . .)
          )
          ((= 12 (CAR data))                      ;右键
           (SETQ modify_mode "eXit")
          )
    )
)

2. 
   
3. ;;;7/23/03
   
4. ;;;复合线顶点编辑工具
   
5. (load "get_ent_points")
   
6. (defun c:pedit_ev( / angle1 angle2 angle3 data data_new dist1 ent1 modify_mode num1 point_num1 point1 points)
   
7.         ;;选取一条多段线
   
8.         (while (progn
   
9.                            (while (not (setq ent1 (car (entsel "\n\t选择要编辑的多段线:")))))
   
10.                            (not (wcmatch (cdr (assoc '0 (entget ent1))) "*POLYLINE"))
    
11.                    )
    
12.                 (princ "\n\t选择的不是多段线。")
    
13.         )
    
14.         (setq modify_mode "Add")
    
15.         (while (/= modify_mode "eXit")
    
16.                 (princ (strcat "\n\tAdd增加点/Del删除点/Move移动点/eXit退出<"
    
17.                                            (cond ((= "Move" modify_mode) "Move移动点")
    
18.                                                          ((= "Add" modify_mode) "Add增加点")
    
19.                                                          ((= "Del" modify_mode) "Del删除点")
    
20.                                            )
    
21.                                            ">:"
    
22.                            )
    
23.                 )
    
24.                 (setq data (grread nil))
    
25.                 (cond
    
26.                         ((= 2 (car data))
    
27.                          (cond
    
28.                                  ((= 120 (cadr data))
    
29.                                   (setq modify_mode "eXit")
    
30.                                  )
    
31.                                  ((or (= 65 (cadr data)) (= 97 (cadr data)))
    
32.                                   (setq modify_mode "Add")
    
33.                                  )
    
34.                                  ((or (= 68 (cadr data)) (= 100 (cadr data)))
    
35.                                   (setq modify_mode "Del")
    
36.                                  )
    
37.                                  ((or (= 77 (cadr data)) (= 109 (cadr data)))
    
38.                                   (setq modify_mode "Move")
    
39.                                  )
    
40.                          )
    
41.                         )
    
42.                         ((= 3 (car data))
    
43. 
    
44.                          ;;与线上点最小距离
    
45.                          (setq point1 (mapcar '* (cadr data) (list 1 1)))
    
46.                          (setq points (car (get_points ent1)))
    
47.                          (setq dist1 (distance point1 (car points))) ;与线上点最小距离
    
48.                          (setq point_num1 0)                                  ;与线上点最小距离的点序号
    
49.                          (setq num1 0)
    
50.                          (foreach temp points
    
51.                                  (if (> dist1 (distance temp point1))
    
52.                                          (progn
    
53.                                                  (setq dist1 (distance temp point1))
    
54.                                                  (setq point_num1 num1)
    
55.                                          )
    
56.                                  )
    
57.                                  (setq num1 (1+ num1))
    
58.                          )
    
59.                          ;;进行处理
    
60.                          (setq data (entget ent1))
    
61.                          (setq data_new (list))
    
62.                          (setq num1 0)
    
63.                          (foreach temp data
    
64.                                  (if (and (= 10 (car temp)) (= num1 point_num1))
    
65.                                          (cond
    
66.                                                  ;;增加点
    
67.                                                  ((= "Add" modify_mode)
    
68.                                                   ;;angle1        前角
    
69.                                                   ;;angle2        后角
    
70.                                                   (if (= 0 point_num1)
    
71.                                                           (setq angle1 (angle (nth (+ point_num1 1) points) (nth point_num1 points))) ;延长角的角度
    
72.                                                           (setq angle1 (angle (nth point_num1 points) (nth (- point_num1 1) points)))
    
73.                                                   )
    
74.                                                   (if (= (- (length points) 1) point_num1)
    
75.                                                           (setq angle2 (angle (nth (- point_num1 1) points) (nth point_num1 points))) ;延长角的角度
    
76.                                                           (setq angle2 (angle (nth point_num1 points) (nth (+ point_num1 1) points)))
    
77.                                                   )
    
78.                                                   (setq angle3 (angle (nth point_num1 points) point1)) ;
    
79. 
    
80.                                                   (setq angle1 (- angle1 angle3))
    
81.                                                   (setq angle2 (- angle3 angle2))
    
82. 
    
83.                                                   (if (< angle1 0)
    
84.                                                           (setq angle1 (+ angle1 pi pi))
    
85.                                                   )
    
86.                                                   (if (< angle2 0)
    
87.                                                           (setq angle2 (+ angle2 pi pi))
    
88.                                                   )
    
89.                                                   (if (or (and (< angle1 angle2) (< (+ angle1 angle2) (+ pi pi)))        ;内角时小于360度且前角小于后角
    
90.                                                                   (and (> angle1 angle2) (> (+ angle1 angle2) (+ pi pi)))        ;外角时大于360度且前角大于后角
    
91.                                                           )
    
92.                                                           ;;条件为真时加在最近点前面
    
93.                                                           (setq        data_new (append data_new
    
94.                                                                                                          (list (append (list 10) point1))
    
95.                                                                                                          (list (assoc '40 data) (assoc '41 data) (assoc '42 data))
    
96.                                                                                                          (list temp)
    
97.                                                                                          )
    
98.                                                           )
    
99.                                                           ;;条件为假时加在最近点后面
    
100.                                                           (setq        data_new (append data_new
     
101.                                                                                                          (list temp)
     
102.                                                                                                          (list (assoc '40 data) (assoc '41 data) (assoc '42 data))
     
103.                                                                                                          (list (append (list 10) point1))
     
104.                                                                                          )
     
105.                                                           )
     
106.                                                   )
     
107.                                                  )
     
108.                                                  ;;移动点
     
109.                                                  ((= "Move" modify_mode)
     
110.                                                   (setq data_new (append data_new (list (append (list 10) point1))))
     
111.                                                  )
     
112.                                                  ;;删除点
     
113.                                                  ;;就不用处理
     
114.                                          )
     
115.                                          (setq data_new (append data_new (list temp)))
     
116.                                  )
     
117.                                  (if (= 10 (car temp))
     
118.                                          (setq num1 (1+ num1))
     
119.                                  )
     
120.                          )
     
121.                          (if (not (entmod data_new))
     
122.                                  (*error* "不能更新实体数据!")
     
123.                          )
     
124.                         )
     
125.                         ((= 12 (car data))
     
126.                          (setq modify_mode "eXit")
     
127.                         )
     
128.                 )
     
129.         )
     
130.         (princ)
     
131. )
     

<br /> ;;;7/23/03<br /> ;;;复合线顶点编辑工具<br /> (load "get_ent_points")<br /> (defun c:pedit_ev( / angle1 angle2 angle3 data data_new dist1 ent1 modify_mode num1 point_num1 point1 points)<br />         ;;选取一条多段线<br />         (while (progn<br />                            (while (not (setq ent1 (car (entsel "\n\t选择要编辑的多段线:")))))<br />                            (not (wcmatch (cdr (assoc '0 (entget ent1))) "*POLYLINE"))<br />                    )<br />                 (princ "\n\t选择的不是多段线。")<br />         )<br />         (setq modify_mode "Add")<br />         (while (/= modify_mode "eXit")<br />                 (princ (strcat "\n\tAdd增加点/Del删除点/Move移动点/eXit退出<"<br />                                            (cond ((= "Move" modify_mode) "Move移动点")<br />                                                          ((= "Add" modify_mode) "Add增加点")<br />                                                          ((= "Del" modify_mode) "Del删除点")<br />                                            )<br />                                            ">:"<br />                            )<br />                 )<br />                 (setq data (grread nil))<br />                 (cond<br />                         ((= 2 (car data))<br />                          (cond<br />                                  ((= 120 (cadr data))<br />                                   (setq modify_mode "eXit")<br />                                  )<br />                                  ((or (= 65 (cadr data)) (= 97 (cadr data)))<br />                                   (setq modify_mode "Add")<br />                                  )<br />                                  ((or (= 68 (cadr data)) (= 100 (cadr data)))<br />                                   (setq modify_mode "Del")<br />                                  )<br />                                  ((or (= 77 (cadr data)) (= 109 (cadr data)))<br />                                   (setq modify_mode "Move")<br />                                  )<br />                          )<br />                         )<br />                         ((= 3 (car data))<br /> <br />                          ;;与线上点最小距离<br />                          (setq point1 (mapcar '* (cadr data) (list 1 1)))<br />                          (setq points (car (get_points ent1)))<br />                          (setq dist1 (distance point1 (car points))) ;与线上点最小距离<br />                          (setq point_num1 0)                                  ;与线上点最小距离的点序号<br />                          (setq num1 0)<br />                          (foreach temp points<br />                                  (if (> dist1 (distance temp point1))<br />                                          (progn<br />                                                  (setq dist1 (distance temp point1))<br />                                                  (setq point_num1 num1)<br />                                          )<br />                                  )<br />                                  (setq num1 (1+ num1))<br />                          )<br />                          ;;进行处理<br />                          (setq data (entget ent1))<br />                          (setq data_new (list))<br />                          (setq num1 0)<br />                          (foreach temp data<br />                                  (if (and (= 10 (car temp)) (= num1 point_num1))<br />                                          (cond<br />                                                  ;;增加点<br />                                                  ((= "Add" modify_mode)<br />                                                   ;;angle1        前角<br />                                                   ;;angle2        后角<br />                                                   (if (= 0 point_num1)<br />                                                           (setq angle1 (angle (nth (+ point_num1 1) points) (nth point_num1 points))) ;延长角的角度<br />                                                           (setq angle1 (angle (nth point_num1 points) (nth (- point_num1 1) points)))<br />                                                   )<br />                                                   (if (= (- (length points) 1) point_num1)<br />                                                           (setq angle2 (angle (nth (- point_num1 1) points) (nth point_num1 points))) ;延长角的角度<br />                                                           (setq angle2 (angle (nth point_num1 points) (nth (+ point_num1 1) points)))<br />                                                   )<br />                                                   (setq angle3 (angle (nth point_num1 points) point1)) ;<br /> <br />                                                   (setq angle1 (- angle1 angle3))<br />                                                   (setq angle2 (- angle3 angle2))<br /> <br />                                                   (if (< angle1 0)<br />                                                           (setq angle1 (+ angle1 pi pi))<br />                                                   )<br />                                                   (if (< angle2 0)<br />                                                           (setq angle2 (+ angle2 pi pi))<br />                                                   )<br />                                                   (if (or (and (< angle1 angle2) (< (+ angle1 angle2) (+ pi pi)))        ;内角时小于360度且前角小于后角<br />                                                                   (and (> angle1 angle2) (> (+ angle1 angle2) (+ pi pi)))        ;外角时大于360度且前角大于后角<br />                                                           )<br />                                                           ;;条件为真时加在最近点前面<br />                                                           (setq        data_new (append data_new<br />                                                                                                          (list (append (list 10) point1))<br />                                                                                                          (list (assoc '40 data) (assoc '41 data) (assoc '42 data))<br />                                                                                                          (list temp)<br />                                                                                          )<br />                                                           )<br />                                                           ;;条件为假时加在最近点后面<br />                                                           (setq        data_new (append data_new<br />                                                                                                          (list temp)<br />                                                                                                          (list (assoc '40 data) (assoc '41 data) (assoc '42 data))<br />                                                                                                          (list (append (list 10) point1))<br />                                                                                          )<br />                                                           )<br />                                                   )<br />                                                  )<br />                                                  ;;移动点<br />                                                  ((= "Move" modify_mode)<br />                                                   (setq data_new (append data_new (list (append (list 10) point1))))<br />                                                  )<br />                                                  ;;删除点<br />                                                  ;;就不用处理<br />                                          )<br />                                          (setq data_new (append data_new (list temp)))<br />                                  )<br />                                  (if (= 10 (car temp))<br />                                          (setq num1 (1+ num1))<br />                                  )<br />                          )<br />                          (if (not (entmod data_new))<br />                                  (*error* "不能更新实体数据!")<br />                          )<br />                         )<br />                         ((= 12 (car data))<br />                          (setq modify_mode "eXit")<br />                         )<br />                 )<br />         )<br />         (princ)<br /> )<br />

meflying

EPISODE发表于2003-11-23 10:12:00谢谢！
不过，看来我没将问题说清楚，我说要问的是：在程序运行时要求用户输入时，既允许用户选取某个对象，又允许用户键入一个字符改变运行流程，就像PEDIT开始时一样。这种情况如何用LISP编

我已经说得很明白了,仔细看看,最后说了查看initget函数和getxxx函数,这里你看getpoint函数,是你自己没有去看而已

EPISODE

谢谢 lockmyeye！好像明白了！

meflying

EPISODE发表于2003-11-24 0:13:00谢谢 lockmyeye！好像明白了！

让你看函数，你就是不愿意看，非让人把代码给你写出来吗？
注：lockmyeye的方法与你说的混合输入是完全不同的两种方法，你使用时会发现，如果用键盘输入，你lockmyeye输入后不需要回车，而pedit第一项如果输入m必须回车才行的。。。

tukuitk

同意飞哥的观点！有些问题不要混淆了，呵呵

EPISODE

谢谢各位的指点！

关于GETXXX以、INITGET的说明，还有ENTSEL等函数的说明，我看了！可是各个GETXXX函数都只针对某类输入，如GETSTRING只能输入字符串，而ENTSEL只能选取对象。我就想有没有某个函数，既可以让你选取对象，又可以让你输入参数。

问题的来由是这样：给两并排在一起的沟渠、道路编号，先选取沟渠线在其上方标注沟渠编号，后改变标注方位，再选取道路线在其下方标注编号。

谢谢LOCKMYEYE，是因为LOCKMYEYE的程序提醒我去看更多的函数！因为初学LISP，确实会缺乏思路，我所需要的正是基本方法和思路！

秋枫

EPISODE发表于2003-11-24 13:17:00谢谢各位的指点！
我就想有没有某个函数，既可以让你选取对象，又可以让你输入参数。

entsel是支持initget的。但ssget不支持。
所以，点选可以，如pedit命令那个功能。
但多选不行，象ma命令的那个功能就有点麻烦。