社区 › Auto Lisp › 调试帮助：vlax转储对象

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

调试帮助：vlax转储对象

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

(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

(setq ent (car (entsel)))

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

试试这个

((= (Type (car obj)) 'ENAME)
(vlax-dump-object (vlax-ename->vla-object (car obj)) t)

或
 

((= (type (vlax-ename->vla-object (car obj)) 'VLA-OBJECT)
(vlax-dump-object (vlax-ename->vla-object (car obj)) t)

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

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

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

谢谢大家！

查看完整版本: 调试帮助：vlax转储对象