[求助]：请教一个问题

lotos1205 · 发表于 2007-6-7 17:42:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

请教高手，在LISP中用PLINE绘线时，如何出现像直接在CAD命令行使用PLINE命令绘线出现的U[回退]字样，即如何实现回退功能？

zxq0220 · 发表于 2007-6-7 19:13:05

如果是用LISP动态模拟可以这样写
(DEFUN C:TEST ()
(SETVAR "CMDECHO" 0)
(COMMAND "PLINE")
(WHILE (NOT (ZEROP (GETVAR "CMDACTIVE"))) (COMMAND PAUSE))
(PRINC)
)

zml84 · 发表于 2007-6-7 19:49:17

最初由 lotos1205 发布
[B]请教高手，在LISP中用PLINE绘线时，如何出现像直接在CAD命令行使用PLINE命令绘线出现的U[回退]字样，即如何实现回退功能？ [/B]

;;;练习------在响应中添加选项
;;;日期：zml84 于 2007-05-30
(defun C:TT (/ PT LST STR)
(setvar "CMDECHO" 0)
(if (setq PT (getpoint "\n指点起点:"))
(progn
(command "_.pline" "non" PT)
(setq LST (list PT))
(while (progn (if (= (length LST) 1)
(setq STR "\n下一点:")
(progn
(setq STR "\n下一点或 [回撤(U)]:")
(initget "U")
)
)
(setq PT (getpoint (car LST) STR))
)
(command "non" PT)
(if (= PT "U")
(setq LST (cdr LST))
(setq LST (cons PT LST))
)
)
(command "")
)
)
(princ)
)
</pre>

;;;练习------在响应中添加选项 
;;;日期：zml84 于 2007-05-30 
(defun C:TT (/ PT LST STR) 
 
    (setvar "CMDECHO" 0) 
    (if        (setq PT (getpoint "\n指点起点:")) 
 
        (progn 
            (command "_.pline" "non" PT) 
            (setq LST (list PT)) 
 
            (while (progn (if (= (length LST) 1) 
 
                              (setq STR "\n下一点:") 
                              (progn 
                                  (setq STR "\n下一点或 [回撤(U)]:") 
 
                                  (initget "U") 
                              ) 
                          ) 
                          (setq PT (getpoint (car LST) STR)) 
 
                   ) 
                (command "non" PT) 
                (if (= PT "U") 
 
                    (setq LST (cdr LST)) 
                    (setq LST (cons PT LST)) 
 
                ) 
            ) 
            (command "") 
        ) 
    ) 
 
    (princ) 
) 
</pre>

参见：http://zml84.blog.sohu.com/48129818.html

fsxm · 发表于 2007-6-7 20:46:46

应当如zxq0220所说的一样吧~
大多数都不用command了
但的确有时command能带来lisp很难实现动态效果~
（这就时用时还是要用一下command的唯一理由）
zml84可能没有动态效果了哦~

zml84 · 发表于 2007-6-7 22:30:11

如何动态？愿闻其详。

carrot1983 · 发表于 2007-6-9 10:35:21

我猜一下怎么动态啊。。。。
可能是这样吧。
(setq pt1 (getpoint "\n指定第一点："))
(setq pt2 (getpoint pt2 "\n指定第二点："))
跟command没关系吧。

lotos1205 · 发表于 2007-6-11 12:05:17

zxq0220和zml84的代码都可以达到需求，多谢高手们~~！

zml84 · 发表于 2007-6-11 13:01:26

总算明白了，所谓“动态效果”是指橡皮筋效果吧？
 
3楼的代码的好处有：
1、可以对用户输入进行有效性过滤；
2、能够对选项进行自定义扩充；
3、让大家体验了一下表数据的好处。

lotos1205 · 发表于 2007-6-11 16:29:05

用表是很好，可是如果我需要具体的点号，像六楼那样，好象还真的不好办

比如这种情况

(DEFUN C:TEST2 ()
(setq pt1 (getpoint "\n指定第一点："))
(while
(setq pt2 (getpoint pt1 "\n指定第二点："))
(COMMAND "pline" PT1 "w" 0.15 "" PT2 "")
(setq pt1 pt2)
)
(PRINC)
)

能实现回退功能么

zml84 · 发表于 2007-6-11 16:47:53

最初由 lotos1205 发布
[B]用表是很好，可是如果我需要具体的点号，像六楼那样，好象还真的不好办 [/B]

表数据是自己根据需要建立的，其格式是相当灵活的。
在3楼的代码中，监视一下变量LST的值即可体会。
请注意这一句：

(setq PT (getpoint (car LST) STR))

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

[求助] [求助]：请教一个问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：请教一个问题