[求助]：lisp下怎么实现动态效果，如：

clearlai · 发表于 2007-7-6 18:23:28

您需要登录才可以下载或查看，没有账号？立即注册

×

很简单的。画一根线。lisp下获取两点。然后连接就可以。但是在用程序的时候，
用command下line命令。它画第二点时，是有动态效果的。

lazybug · 发表于 2007-7-6 19:47:30

(setq pt (getpoint "\n指定第一点:"))
(setq pt2 (getpoint pt "\n指定下一点:"))
(command "line" pt pt2 "")

TLHMQH · 发表于 2007-7-6 21:05:40

2楼说的对。所谓橡皮筋效果。
演示：
(defun c:DTLX ()
  (setq p1 (getpoint "\n指定第一点:"))
  (setq p2 (getpoint p1 "\n指定第二点:"))
  (command "line" p1 p2 "")
  (princ)
)

zml84 · 发表于 2007-7-7 18:08:52

除了getpoint函数外，还有一个可以实现矩形橡皮筋效果的函数，那就是getcorner
其效果请体会。

真龙天子 · 发表于 2007-7-7 22:26:14

又学了一招

marcoyuwen · 发表于 2007-7-7 22:37:28

getpoint 函数如果指定了第一点，如三楼的程序，则支持正交（F8）。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：lisp下怎么实现动态效果，如：