[讨论]扩展数据删除，请帮忙测试？

guohq · 发表于 2009-7-17 09:55:00

[LISP函数]：

(defun GetAPP(ent / obj vtype xdata lst nn rtn)
;;功能:获取对象的应用名
(setq obj (vlax-ename->vla-object ent))
(vla-getxdata obj "" 'vtype 'xdata)
(if vtype
(progn
(setq vtype (vlax-safearray->list vtype)
xdata (vlax-safearray->list xdata))
(setq lst (allsyminlst 1001 vtype))
(setq rtn '() nn 0)
(repeat (length lst)
(setq ent (nth (nth nn lst) xdata) nn (1+ nn))
(setq rtn (cons (vlax-variant-value ent) rtn))
)
(setq rtn (reverse rtn))
)
)
rtn
)

(defun ALLSymInLst ( Sym Lst / nn rtn ent)
;;功能:返回所有sym在lst中的位置,从0开始,如果没有则返回nil
(setq rtn '() nn 0)
(repeat (length lst)
(setq ent (nth nn lst))
(if (= sym ent)
(setq rtn (cons nn rtn))
)
(setq nn (1+ nn))
)
(reverse rtn)
)

(defun Delapp(ent app / obj appstr Vtype Xdata Ntype Ndata);;待测试
;;功能:删除某个对象的应用名
;;说明：多个app 以(list app1 app2)的形式存在
(if (or (= app "*") (= app ""))
(setq app (getapp ent))
)
(if (= (type app) 'STR)
(setq app (list app))
)
(if (= (type ent) 'ENAME)
(setq obj (vlax-ename->vla-object ent) nn 0 rtn '())
(setq obj ent nn 0 rtn '())
)
(repeat (length app)
(setq appstr (nth nn app) nn (1+ nn))
(vla-getxdata obj appstr 'vtype 'xdata)
(if vtype
(progn
(setq ntype (vlax-make-safearray vlax-vbinteger '(0 . 0)))
(vlax-safearray-put-element ntype 0 (vlax-make-variant 1001 2))
(setq ndata (vlax-make-safearray 12 '(0 . 0)))
(vlax-safearray-put-element ndata 0 (vlax-make-variant appstr 8))
(vla-setxdata obj ntype ndata)
(setq rtn (cons (list appstr T) rtn))
)
(setq rtn (cons (list appstr nil) rtn))
)
)
(reverse rtn)
)

(defun c:tt();;test
(setq ss (ssget) nn 0 )
(repeat (sslength ss)
(setq ent (ssname ss nn) nn (1+ nn))
(print (delapp ent ""))
)
)

帮忙测试一下，为何选择一个对象，运行没有问题，如果一次选择了多个对象，就会出现错误？

f5612140 · 发表于 2009-7-17 18:38:00

基本錯誤,主程序及副程序都用了nn,其他沒試

guohq · 发表于 2009-7-17 19:10:00

好像不关NN的事吧？

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