[LISP程序]：下面这个程序如何完善。

gchen · 发表于 2003-4-9 11:18:18

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

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

×

在下面这个程序中，系统变量的设置形同虚设，更本没有作用。请问该如何设置。

(defun c:m(/ old-osmode old-ortho)
(setq old-osmode (getvar "osmode") old-ortho (getvar "orthomode"))
(setvar "osmode" 47)
(setvar "orthomode" 1)
(command "_.move")
(setvar "osmode" old-osmode)
(setvar "orthomode" old-ortho)
(princ)
)

lijiao · 发表于 2003-4-9 11:47:16

[QUOTE]最初由 gchen 发布
[B]在下面这个程序中，系统变量的设置形同虚设，更本没有作用。请问该如何设置。

(defun c:m(/ old-osmode old-ortho)
(setq old-osmode (getvar "osmode") old-ortho (getvar "orthomode"))
(setvar "o... [/B][/QUOTE]
其中[COLOR=red](command "_.move")[/COLOR] 不完整，写完后，系统变量就会起作用，这样修改一下试试：
[CODE]
[FONT=courier new]
(command "move" pause "" pause pause)
[/FONT]

cssanhui · 发表于 2003-4-9 12:16:22

当然有可能系统变量的设置形同虚设，因为旧的osmode和orthomode变量值可能已包含(setvar "osmode" 47)
(setvar "orthomode" 1)的值了。

gchen · 发表于 2003-4-9 12:23:13

谢谢。
但是按照你这样的写法，就等于给move命令限定了操作次数，只能交互三次。
如果把命令改成copy呢，因为其中有m这个选择，pause的次数就很难确定。这样又会引起命令失误，还有别的好办法吗？

lijiao · 发表于 2003-4-9 14:04:45

最初由 gchen 发布
[B]谢谢。
但是按照你这样的写法，就等于给move命令限定了操作次数，只能交互三次。
如果把命令改成copy呢，因为其中有m这个选择，pause的次数就很难确定。这样又会引起命令失误，还有别的好办法吗？ [/B]

可用WHILE等实现。

aeo · 发表于 2003-4-10 00:04:57

检测"CMDACTIVE"的值试试.

lijiao · 发表于 2003-4-10 08:12:53

最初由 gchen 发布
[B]谢谢。
但是按照你这样的写法，就等于给move命令限定了操作次数，只能交互三次。
如果把命令改成copy呢，因为其中有m这个选择，pause的次数就很难确定。这样又会引起命令失误，还有别的好办法吗？ [/B]

用WHILE进行循环。

gchen · 发表于 2003-4-10 10:37:32

试过了，我使用(while (= (getvar "cmdactive") 1) (command pause))，但是这样就会出现选择上的问题，就是不能使用窗选了。变成了(entsel)一样的选择。

lijiao · 发表于 2003-4-10 11:22:51

最初由 gchen 发布
[B]试过了，我使用(while (= (getvar "cmdactive") 1) (command pause))，但是这样就会出现选择上的问题，就是不能使用窗选了。变成了(entsel)一样的选择。 [/B]

我给你修改一下吧

[FONT=courier new]
(defun c:m (/ old-osmode old-ortho old-cmdecho ss pt1 pt2)
(setq old-cmdecho (getvar "cmdecho")
old-osmode (getvar "osmode")
old-ortho (getvar "orthomode")
)
(setvar "osmode" 47)
(setvar "orthomode" 1)
(setvar "cmdecho" 0)
(while (and (setq ss (ssget))
(setq pt1 (getpoint "\n基准点："))
(setq pt2 (getpoint pt1 "\n目的点"))
)
(command "_.move" ss "" pt1 pt2)
(princ
"\n..............................................................\n"
)
)
(setvar "osmode" old-osmode)
(setvar "orthomode" old-ortho)
(setvar "cmdecho" old-cmdecho)
(princ)
)
[/FONT]

另外，论坛好象有问题，昨天，我回了第5贴，今天一看，竟然没有，于是补上一贴（第7贴），现在一看，以前的第5贴又出来了，不知为何？

gchen · 发表于 2003-4-11 14:49:44

谢谢lijiao的热心，我还有一个疑问，就是除非在程序中完全执行完命令，没有别的方法了吗？
我自己也写了一个模仿copy的小程序。但总觉得不是很完美。
论坛这两天是不是在改什么东西，很不稳定。

(defun c:kkk (/ old-osmode old-ortho old-cmdecho ss pt1 pt2)
(setq old-cmdecho (getvar "cmdecho")
old-osmode (getvar "osmode")
old-ortho (getvar "orthomode")
)
(setvar "osmode" 47)
(setvar "orthomode" 1)
(setvar "cmdecho" 0)
(setq ss (ssget))
(if ss
(progn
(initget 128)
(setq
pt1 (getpoint
"\nSpecify base point or displacement, or [Multiple]:"
)
)
(if (and (= (type pt1) 'STR)
(wcmatch "MULTIPLE" (strcat (strcase pt1) "*"))
)
(progn
(setq pt1 (getpoint "Specify base point :"))
(if pt1
(while (setq pt2
(getpoint
pt1
"Specify second point of displacement or <use first point as displacement>:"
)
)
(command "_.copy" ss "" pt1 pt2)
)
)
)
(progn
(if (= (type pt1) 'LIST)
(if (and (numberp (car pt1))
(numberp (cadr pt1))
(numberp (caddr pt1))
)
(progn
(setq pt2
(getpoint
pt1
"Specify second point of displacement or <use first point as displacement>:"
)
)
(command "_.copy" ss "" pt1 pt2)
)
)
(princ "\nInvalid input.")
)
)
)
)
)
(setvar "osmode" old-osmode)
(setvar "orthomode" old-ortho)
(setvar "cmdecho" old-cmdecho)
(princ)
)

(defun c:kkk (/ old-osmode old-ortho old-cmdecho ss pt1 pt2) 
  (setq old-cmdecho (getvar "cmdecho") 
        old-osmode  (getvar "osmode") 
        old-ortho   (getvar "orthomode") 
        ) 
  (setvar "osmode" 47) 
  (setvar "orthomode" 1) 
  (setvar "cmdecho" 0) 
  (setq ss (ssget)) 
  (if ss 
    (progn 
      (initget 128) 
      (setq 
        pt1 (getpoint 
              "\nSpecify base point or displacement, or [Multiple]:" 
              ) 
        ) 
      (if (and (= (type pt1) 'STR) 
               (wcmatch "MULTIPLE" (strcat (strcase pt1) "*")) 
               ) 
        (progn 
          (setq pt1 (getpoint "Specify base point :")) 
          (if pt1 
            (while (setq pt2 
                          (getpoint 
                            pt1 
                            "Specify second point of displacement or <use first point as displacement>:" 
                            ) 
                         ) 
              (command "_.copy" ss "" pt1 pt2) 
              ) 
            ) 
          ) 
        (progn 
          (if (= (type pt1) 'LIST) 
            (if (and (numberp (car pt1)) 
                     (numberp (cadr pt1)) 
                     (numberp (caddr pt1)) 
                     ) 
              (progn 
                (setq pt2 
                       (getpoint 
                         pt1 
                         "Specify second point of displacement or <use first point as displacement>:" 
                         ) 
                      ) 
                (command "_.copy" ss "" pt1 pt2) 
                ) 
              ) 
            (princ "\nInvalid input.") 
            ) 
          ) 
        ) 
      ) 
    ) 
  (setvar "osmode" old-osmode) 
  (setvar "orthomode" old-ortho) 
  (setvar "cmdecho" old-cmdecho) 
  (princ) 
  )

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

[LISP程序]：下面这个程序如何完善。

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

相关帖子

Re: [LISP程序]：下面这个程序如何完善。