[求助]：lisp高手请进,哪位能解决这个问题

mochaolong

这是一个相当于南方矢量化软件上"线型跟踪"命令中的手动跟踪.



      问题是这样的:

               在描地形图的时候用到样条曲线和多段线,首先指定起点,然后沿着光栅图像描线,从中要不停单击左键指定下一点,不停的按住鼠标中间键将屏幕未显示的部分拖移到中间、如此循环直到描完一根复杂的曲线。

      能否在指定下一点后将刚才指定的点自动移动的屏幕中间，相当于“zoom  c "将刚才指定的点自动缩放到中间。这样的话就只需指定下一点了。

          可是用LISP在执行SPLIE与PLINE时不能同时用“ZOOM”或同时执行多个命令。

那有什么办法实现这功能，或者是同时执行画线时自动移动屏幕。

  同时执行多个命令

                                       谢谢大家

zxq0220

下面程序只是个小试验，只能画直线。
[php]
(DEFUN C:TEST ()
(SETVAR "CMDECHO" 0)
(COMMAND ".UNDO" "BE")
(SETQ PT (GETPOINT "\nFirst Point :"))
(COMMAND "LINE" PT (SETQ PT (GETPOINT PT "\nNext Point :")) "")
(WHILE (SETQ PT (GETPOINT PT "\nNext Point :"))
  (COMMAND "LINE" "" PT "")
  (COMMAND "ZOOM" "C" PT "")
)
(COMMAND ".UNDO" "E")
(SETVAR "CMDECHO" 1)
(PRINC)
)
[/php]

mochaolong

这一部我已经实现了,可以但是还必须把所有直线连接起来.如果选项中出现一个{放弃U}{回退到某一点}我就处理不好了
   还是非常感谢楼上的朋友

cgh93001

要连接起来倒是可以 就是构造选择集 最后用PE 的J命令把这个选择集接起来

cgh93001

(DEFUN C:TEST ()
(SETVAR "CMDECHO" 0)
(COMMAND ".UNDO" "BE")
(SETQ PT (GETPOINT "\nFirst Point :"))
(COMMAND "PLINE" PT (SETQ PT (GETPOINT PT "\nNext Point :")) "")
(SETQ SS (ENTLAST) SS1 (SSADD))  
(WHILE (SETQ PT (GETPOINT PT "\nNext Point :"))
  (COMMAND "LINE" "" PT "")
  (COMMAND "ZOOM" "C" PT "")
  (IF SS1 (SETQ SS1 (SSADD (ENTLAST) SS1)) (SETQ SS1 (ENTLAST))  )
)
(COMMAND"PEDIT" SS "J" SS1 "" "")
(SETVAR "CMDECHO" 1)
(PRINC)
)