lisp如何实现实时动态显示

fawn_lgc

我做了一个绘制角铁的程序,请教各位大侠,如何才能让它向command内部命令(如polygon)那样实现实时动态显示.
[fly]小鹿[/fly]

曙光一号

我编写了一个画中线的程序，在程序中我想动态显示中线的长度
具体要求是，在输入起点后，根据鼠标的移动，动态的显示中线的长度
程序内容如下


还有一个问题是，在输入终点时，只能用鼠标输入点，不能由键盘输入中线的长度
请沉老师帮忙，
谢谢！

fawn_lgc

不行呀,说专业点,我是希望能实现实时拖动,以一个简单的画圆程序为例
原版的circle命令在输入半径过程中就可以看到圆,而我做的程序必须在程序执行玩后才看到圆,如何进行改进才能实现实时拖动.高手帮我啊!

以半径画圆的程序
(defun c:circ (/ pt1 pt2 cmdsave)
  (defun *error*(msg)
    (if (and (/= msg "Function cancelled")(/= msg "函数被取消"))
     (princ(strcat "警告:" msg "\n"))
      )
    (setvar "cmdecho" cmdsave)
    (princ)
    )
  (setq cmdsave (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "圆心："))
  (if (/= pt1 nil)
    (progn
      (setq pt2 (getpoint pt1 "\n半径："))
      (if (/= pt2 nil)
         (command "circle" pt1 pt2)
        )
      )
    )
  (setvar "cmdecho" cmdsave)
  (princ)
)


[move]小鹿[/move]

fawn_lgc

请说详细点

陈伯雄

fawn_lgc

具体的说,就象插入图块时,在输入插入点,即输入旋转角度的过程中,就可以看到即将绘制的,能跟随光标移动的实体.请问大侠们,能做到吗?
小鹿

dbczhaoy

fawn_lgc

从最简单的图形开始由易到难,一步步学lisp编程,受益匪浅.

alin

(defun c:circ (/ pt1 pt2 cmdsave)
  (defun *error*(msg)
    (if (and (/= msg "Function cancelled")(/= msg "Function Cancelled"))
     (princ(strcat "Alert:" msg "\n"))
      )
    (setvar "cmdecho" cmdsave)
    (princ)
    )
  (setq cmdsave (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (princ "\nCenter: ")
  (command "circle" pause)
  (princ "\nRadius: ")
  (command pause)
  (setvar "cmdecho" cmdsave)
  (princ)
)

曙光一号

上传个文件太不容易了