[LISP程序]：正交颜色3画线,单行执行正确,程序不执行

dhxf · 发表于 2005-11-10 09:00:49

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

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

×

;;;;;;;;;
(defun c:zh1()
(graphscr)
(setvar "cmdecho" 0)
(setq oldortho (getvar "orthomode"))
(setq oldos (getvar "osmode"))
(setq color1 (getvar "cecolor"))
(setvar "orthomode" 1 )
(setvar "osmode" 0)

(command ".color" 3)
(setq pt2 (getpoint "\npo:"))
(command "color" 3)
(command ".line" pt2)

(setvar "osmode" oldos)
(setvar "orthomode" oldortho)
(setvar "cecolor" color1)

(princ)
)

搞不懂.

841594 · 发表于 2005-11-10 09:17:04

line命令还没有执行完，就又把颜色改了回去。

dhxf · 发表于 2005-11-10 09:39:34

好象ORTHOMODE=0的时候
(SETVAR "ORTHOMODE" 1)
也不执行

841594 · 发表于 2005-11-10 10:05:11

原因同上。

dhxf · 发表于 2005-11-10 10:48:04

那怎么样可以解决尼

yshf · 发表于 2005-11-10 11:34:31

;改为如下
(defun c:zh1()
(graphscr)
(setvar "cmdecho" 0)
(setq oldortho (getvar "orthomode"))
(setq oldos (getvar "osmode"))
(setq color1 (getvar "cecolor"))
(setvar "orthomode" 1 )
(setvar "osmode" 0)

(command ".color" 3)
(setq pt2 (getpoint "\npo:"))
(command ".line" pt2 pause)

(setvar "osmode" oldos)
(setvar "orthomode" oldortho)
(setvar "cecolor" color1)

(princ)
)

xyp1964 · 发表于 2005-11-10 11:54:59

用while控制是否结束

[FONT=courier new](defun c:zh1 ()
(graphscr)
(setvar "cmdecho" 0)
(setq oldortho (getvar "orthomode"))
(setq oldos (getvar "osmode"))
(setq color1 (getvar "cecolor"))
(setvar "orthomode" 1)
(setvar "osmode" 0)
(command ".color" 3)
(if (setq pt1 (getpoint "\n起点 : "))
(progn
(command ".line" pt1)
(while (setq pt2 (getpoint pt1 "\n下一点<退出> : "))
(command pt2)
(setq pt1 pt2)
)
(command "")
)
)
(setvar "osmode" oldos)
(setvar "orthomode" oldortho)
(setvar "cecolor" color1)
(princ)
)[/FONT]

841594 · 发表于 2005-11-10 15:41:47

再改一点，支持回退、闭合。

[FONT=courier new]
(defun c:zh1 ()
(graphscr)
(setvar "cmdecho" 0)
(setq oldortho (getvar "orthomode"))
(setq oldos (getvar "osmode"))
(setq color1 (getvar "cecolor"))
(setvar "orthomode" 1)
(setvar "osmode" 0)
(command ".color" 3)
(setvar "cmdecho" 1)
(command ".line")
(while (= 1 (getvar "cmdactive")) (command pause))
(setvar "osmode" oldos)
(setvar "orthomode" oldortho)
(setvar "cecolor" color1)
(princ)
)
[/FONT]

狂刀 · 发表于 2005-11-10 18:12:51

(while (= 1 (getvar "cmdactive")) (command pause))
一般写成　(while (/= 0 (getvar "cmdactive")) (command pause))

841594 · 发表于 2005-11-11 08:52:43

最初由狂刀发布
[B](while (= 1 (getvar "cmdactive")) (command pause))
一般写成　(while (/= 0 (getvar "cmdactive")) (command pause)) [/B]

谢谢指出：）

狂刀 · 发表于 2005-11-11 13:02:06

因为　CMDACTIVE 　有多个值，比如中途用了透明命令，返回２，如果用＝１来判断就会有问题了。其余类推

CMDACTIVE 系统变量
（只读）
类型：整数
不被保存
存储位码值，此位码值指示激活的是普通命令、透明命令、脚本还是对话框。该值是下列可选位码值之和：
1 激活普通命令
2 激活普通命令和透明命令
4 激活脚本
8 激活对话框
16 激活 DDE
32 激活 AutoLISP（仅对 ObjectARX 定义的命令可见）
64 激活 ObjectARX 命令

复制代码

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

[LISP程序]：正交颜色3画线,单行执行正确,程序不执行

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

相关帖子