[求助]：我也不知这段lisp什么问题，可能是entlast，或是command返回lisp不正常？

win-gf · 发表于 2007-2-6 11:41:24

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

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

×

[PHP]
(defun-q C:d2 ( )
(command "_dimlinear")
(setq en (entlast))
(setq en_data (entget en))
(setq oldlayer (assoc 8 en_data))
(setq newlayer (cons 8 "标注的图层"))
(setq en_data (subst newlayer oldlayer en_data))
(entmod en_data)
)
[/PHP]

我想先用dimlinear画一个标注

在用entlast提取和修改这个标注的群码

但是我要是直接运行d2这个命令的话就不成功

但是一行一行在cad命令行里面输入就没有问题

谁能帮我看看啊呵呵

谢谢各位高手和同人了

Underway · 发表于 2007-2-6 11:50:38

(command "_dimlinear") ;<== 这儿有下文

===>
(command "_dimlinear")
(while (= (logand (getvar "CMDACTIVE") 1) 1)
(command pause)
)

win-gf · 发表于 2007-2-6 12:04:04

先谢谢你了

很感谢

用在qleader的时候好像就出问题了会循环让输入文字

[PHP]

logand
返回一个整数表中的各数按位逻辑与 (AND) 的结果

(logand [int int...])
参数

int

整数型。

返回值

整数（如果未提供参数则为 0）。

示例

命令： (logand 7 15 3)

3

命令： (logand 2 3 15)

2

命令： (logand 8 3 4)

0

[/PHP]

很是不理解logand是什么作用和用法啊呵呵可否指点一二啊

Underway · 发表于 2007-2-6 14:02:40

http://www.xdcad.net/forum/showt ... 1157209#post1157209

win-gf · 发表于 2007-2-8 20:31:11

logand 倒是明白了

但是甚么时候用logand那?

(= (logand (getvar "CMDACTIVE") 1) 1)

和

(= (getvar "CMDACTIVE") 1)

执行起来好像没有甚么区别啊?

谢谢underway~

aeo · 发表于 2007-2-8 22:38:36

比如
(setvar "osmode" 33) ;;现在设了端点,交点
(logand (getvar "osmode") 32) ;;如果有交点，那肯定返回32

用到时就知道了.

春风拂笑人脸 · 发表于 2021-9-29 10:10:35

收藏学习了！

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

[求助] [求助]：我也不知这段lisp什么问题，可能是entlast，或是command返回lisp不正常？

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

相关帖子