我这些代码有啥问题啊

1121443108qaz · 发表于 2018-1-27 14:19:33

我想取得一个文字的txtbox，然后设该文字的初始点为ucs原点后，根据textbox，画出文字的包围框，但是就是执行不下去。可是我手动用rec，！fstpt !scdpt赋值就能画出包围框，这是怎么回事呢。(defun c:tb()(setq en(car(entsel)))
(setq ent(entget en))
(setq textpt(cdr(assoc 10 ent)))
(setq txtbox(textbox ent))
(setq fstpt(car txtbox))
(setq scdpt(cdr txtbox))
(command "ucs" "n" textpt"")
(command "rectang" fstpt scdpt "")
(prin1)
)

Lisphk · 发表于 2018-1-27 14:19:34

(setq scdpt(cdr txtbox)) 改成 (setq scdpt(cadr txtbox))

marting · 发表于 2018-1-27 14:45:18

代码先不论，你用了这么多COMMAND，你代码最前面应该把捕捉给临时关闭，完后在恢复。
(setvar "osmode" 0)，否则捕捉影响你的COMMAND的。

1121443108qaz · 发表于 2018-1-27 18:04:03

Lisphk 发表于 2018-1-27 15:01

真的可以了，可是我看我的！txtbox里面只有两个元素啊，为什么要用cadr

1121443108qaz · 发表于 2018-1-27 18:06:59

Lisphk 发表于 2018-1-27 15:01

这是怎么回事，我用cdr和 cadr得出的scdpt值都是一样的，为什么用cdr的就不行

newer · 发表于 2018-1-27 21:13:58

1121443108qaz 发表于 2018-1-27 18:06

你确定CADR和CDR得到的是一样的？仔细看看。

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

[已解决] 我这些代码有啥问题啊

最佳答案