userzhl
发表于 2008-12-22 11:57:00
<p>(setq ssi (ssget))<br/>(if ssi <br/>(if (= (cdr (assoc 2 (setq edat (entget (setq e (ssname ssi n_in)))))) "材料")<br/>(progn<br/>(setq n_in 0)<br/>(setq len_in (sslength ssi))<br/>(command "undo" "begin")<br/>(repeat len_in<br/> (setq INS (cdr (assoc 10 edat))<br/> INSc (cdr (assoc 41 edat)))<br/> (command "_SCALE" e "" INS (/ scal (abs INSc))))<br/>)<br/>(setq n_in (+ 1 n_in))<br/>)<br/>(command "undo" "end")<br/>)</p><p>为何会出错呢？</p><p>选择对象: 指定对角点: 找到 8 个<br/>选择对象: ; 错误: 参数类型错误: numberp: nil</p>
caoyin
发表于 2008-12-22 12:51:00
<p>(setq ssi (ssget))<br/>(command "undo" "begin")<br/>(if ssi<br/>(repeat (setq n_in (sslength ssi))<br/> (if (= (cdr (assoc 2 (setq edat (entget (setq e (ssname ssi (setq n_in (1- n_in)))))))) "材料")<br/> (progn<br/> (setq INS (cdr (assoc 10 edat))<br/> INSc (cdr (assoc 41 edat)))<br/> (command "_SCALE" e "" "_non" INS (/ <font color="#ff0000">scal</font> (abs INSc))))<br/> )<br/> )<br/>)<br/>)<br/>(command "undo" "end")</p><p>;;我改了一下，但你未指定 scal 变量</p>