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

EPISODE · 发表于 2003-11-23 02:25:00

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

meflying · 发表于 2003-11-23 09:05:00

这并不是混合输入控制,这只是CAD命令的简化,在acad.pgp文件里设置及修改.很容易看明白的.
混合输入控制只有在程序运行时要求用户输入时使用,查看INITGET函数及GETXXX函数

EPISODE · 发表于 2003-11-23 10:12:00

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

lockmyeye · 发表于 2003-11-23 10:23:00

这是一个对多段线进行编辑的程序
原来是因为有很多的顶点要进行删除，另外要增加一些顶点，用pedit很费时间，进行了修改。
主要部分
(SETQ modify_mode "Add")                         ;预设模式
(WHILE (/= modify_mode "eXit")
(PRINC (STRCAT "\n\tAdd增加点/Del删除点/Move移动点/eXit退出:"
         )
)
(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")
      )
)
)

copy


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

meflying · 发表于 2003-11-23 10:54:00

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

EPISODE · 发表于 2003-11-24 00:13:00

谢谢 lockmyeye！好像明白了！

meflying · 发表于 2003-11-24 08:24:00

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

tukuitk · 发表于 2003-11-24 08:26:00

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

EPISODE · 发表于 2003-11-24 13:17:00

谢谢各位的指点！
关于GETXXX以、INITGET的说明，还有ENTSEL等函数的说明，我看了！可是各个GETXXX函数都只针对某类输入，如GETSTRING只能输入字符串，而ENTSEL只能选取对象。我就想有没有某个函数，既可以让你选取对象，又可以让你输入参数。
问题的来由是这样：给两并排在一起的沟渠、道路编号，先选取沟渠线在其上方标注沟渠编号，后改变标注方位，再选取道路线在其下方标注编号。
谢谢LOCKMYEYE，是因为LOCKMYEYE的程序提醒我去看更多的函数！因为初学LISP，确实会缺乏思路，我所需要的正是基本方法和思路！

秋枫 · 发表于 2003-11-24 14:23:00

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

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

发表回复

精选推荐