调试帮助：vlax转储对象

samifox · 发表于 2022-7-6 06:42:52

你好

谁能告诉我这个代码有什么问题吗？


(vl-load-com)
(defun main()
 (setq ent (entsel) )
 (dump ent)
 )
(defun dump (obj)
 (cond
   ((= (type obj) 'ENAME)
    (vlax-dump-object (vlax-ename->vla-object obj) t)
   )
   ((=    (type obj) 'VLA-OBJECT)
   (vlax-dump-object obj t)
   
   )
 ) ;_cond
) ;_defun

marko_ribar · 发表于 2022-7-6 07:09:27

copy


(setq ent ([color=red]car[/color] (entsel)))

gS7 · 发表于 2022-7-6 07:16:35

试试这个

copy


((= (Type ([color=blue]car [/color]obj)) 'ENAME)
(vlax-dump-object (vlax-ename->vla-object ([color=blue]car[/color] obj)) t)

或

copy


((= (type [color=blue](vlax-ename->vla-object (car[/color] obj)) 'VLA-OBJECT)
(vlax-dump-object [color=blue](vlax-ename->vla-object[/color] ([color=blue]car[/color] obj)) t)

Lee Mac · 发表于 2022-7-6 07:35:55

这就是我使用的：转储对象

samifox · 发表于 2022-7-6 07:46:51

谢谢大家！

[编程交流] 调试帮助：vlax转储对象

发表回复

精选推荐