错误: 参数类型错误: lentityp nil
下面一个函数为输出带属性块儿的属性值,在有些地方运行不会出现错误:;可有时候会出现:更改请输入<1>,空格接受默认值<DN; 错误: 参数类型错误: lentityp nil,不知道什么原因,请朋友帮忙!(defun alluse6()
(princ "更改请输入<1>,空格接受默认值<DN")
(setq this_list(entget (entnext (entlast))))
(princ (cdr (assoc 1 this_list)))
(princ ">")
(princ)
(setq attsell(getint))
(if(= attsell 1) (command "eattedit" (entlast) ""));打开最后一个属性块的增强属性编辑器
(setq lst (entget (entnext (entlast))))
(setq s(assoc 1 lst))
(setq step(+ step 1))
)
(setq this_list (entget (entnext (entlast))))
上句中(entlast)已经是最后的实体了,用entnext只能返回nil。所以entget出错。
页:
[1]