（XD::ODBX:SetWorkingDatabase）设置当前工作图形数据库

newer

1. (defun XD::ODBX:SetWorkingDatabase (doc / lay e db)
   
2.   (setq lay (vla-item (vla-get-layers doc) "0"))
   
3.   (setq e (vlax-vla-object->ename lay))
   
4.   (xdrx_database_setpropertyvalue e "clayer" "0")
   
5.   (setq db (xdrx_database_select e))
   
6. )
   
7. 
   

(defun XD::ODBX:SetWorkingDatabase (doc / lay e db)<br />   (setq lay (vla-item (vla-get-layers doc) "0"))<br />   (setq e (vlax-vla-object->ename lay))<br />   (xdrx_database_setpropertyvalue e "clayer" "0")<br />   (setq db (xdrx_database_select e))<br /> )<br /> <br />