[已解决]LISP中能用让命令行提示输入一个数同时鼠标变成选择图元时的小方块可以选择

dinosaurhxe2 · 发表于 2007-11-29 13:00

本帖最后由作者于 2007-12-5 18:16:26 编辑

[已解决]LISP中能用让命令行提示输入一个数同时鼠标变成选择图元时的小方块可以选择图元？[br]我是想实现以下功能：如果输入一个数值，将该值赋给a，如果选择一个图块，将块属性值赋给a。
以下代码虽能实现这个功能，但需要输入一次Xz，能否实现即可以输入一个数，也可以同时读取块属性值？
请前辈们指点，谢谢!

(initget "Xz ")
(setq a (getreal "\n输入起点坐标 [或选择实体读取坐标(X)]<X>:"))
(if (or (= a "Xz") (null a))
(progn
(dzb);调用dzb的程序，获取图层属性值。
(setq a pit)
)
)

dinosaurhxe · 发表于 2007-11-30 23:35

这个，莫非真不能解决么？

xshrimp · 发表于 2007-12-1 02:30

参见
(while (/= (type aa) 'LIST)
(initget 2 "S")
(setq aa (getpoint "\n设置(S)/选择基准点:"))
(cond ((= (type aa) 'STR)
()
      )
      ((= (type aa) 'list)
        (setq py (cadr aa))
      )
      (T (exit))

)
)

dinosaurhxe2 · 发表于 2007-12-1 09:39

感谢楼上指点，我根据您的提示写出如下代码，

(defun c:dzb (/ s1 ent ent1)
(initget 3)
(setq s1 (entsel "\n输入数值/选择需要读取数值的块或文字:"))
(cond ((= (setq xxx (type s1)) ;|'INT|; 'STR) (setq s1 (read s1)))
(t
(progn
);progn
);t
);cond
)

如果选择块，没有问题，但如果输入数值，通过监视得出的xxx始终为nil，这也就导致程序异常中断。
initget是可以定义关键字，但怎么定关键字变成所有的实数(或者整数)？

英雄无敌 · 发表于 2007-12-1 19:59

你应该用(initget 128)

dinosaurhxe · 发表于 2007-12-1 21:15

(initget 128)

监视s1就是nil，怎么回事？

dinosaurhxe2 · 发表于 2007-12-2 14:44

原来entsel只支持识别关键字，不支持控制位的值，也就是(initget [bits] [string])中的bits对entsel不起作用。

倒是明白了为什么s1是nil，但是还没有解决问题。

nonsmall · 发表于 2007-12-3 17:54

你查一查grread这个函数

当输入字母和鼠标点击的时候

你跳出循环就可以了

程序就不写了算法给你

(setq go T)

(while go

(setq tmp(grread T))

(cond

((= tmp xxx)

(setq go nil)

)

((= tmp xxx)

(setq go nil)

)

如果得到一点

可以用getcorner获取对角点

然后用ssget框选即可判断选择的图元

nonsmall · 发表于 2007-12-3 17:56

另外

你可以调用

entselp

这个函数自动选取图元

liu_kunlun · 发表于 2007-12-3 19:19

(initget 128)

(setq a (getpoint "\n输入起点坐标 [或选择实体读取坐标]"))

(cond

( (null a) );;无效输入

( (and (= 'LIST (type a));;得到点

(setq b (ssget a));;点到实体

）

(setq b (ssname b 0) )

(setq a (通过实体b获取块属性）)

）

( (= 'STR (type a));;输入字符串

(setq a (read a))

(if (or(= 'INT (type a))

(= 'REAL (type a))

)

nil;;为数字，结果已在a中

(setq a nil);;其它字串，无效

)

(t (setq a nil));;其它情况，无效

)

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