Giovanni Anzani
Guest
--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------
; Bazı prosedürler sorumu sanatsallaştırmak için
--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------(işlev) acaapp (vlax-get-acad-object)
(defunfun) Docact () (fla-get-activedocumen t (acaapp))
(defunfun) modpa (vla-get-modelspace)
(defunfun) objown (obj)
(defunfun) Organizasyon Organizasyon (j) (vla-get-name (objown kucaklama)--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------
; takip edilen iki b (iki vaaz) prosedürü teorik olarak aynı sonucu sağlamalıdır.
; veya model uzay koleksiyonunda bir nesne mevcut olup olmadığını doğrulayın. Sadece ilk eserler, ikincisi
; belki kavramsal olarak geçerli değil ya da belki de nesneye doğrudan işaret etmek için hangi metinin ne anlama geldiğini bilmiyorum.
; indeksi bilmiyor mu?
--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------(işlev) (PHP 4 = 41.0) (j)
(= (objown_name kiss) "*model_space")· ----- --------------- --------------- --------------- ---------------(işlev) (PHP 4 = 41.0) (txt); b
(vl-catch-all-error-p (vl-catch-all-all-apply 'vla-item (list (mog_modspa) txt)))--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------
; prosedürlerin kullanımının örneği
--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------(setq cir (vla-item (modspa) 0) [...]> > > >
(setq cir_id (vla-get-objectid cir) ; 45
(setq cir_id* (itoa (vla-get-objectid cir) ; "2747619073200"
(setq cir_handle (vla-get-handle cir) ; "2c3"
(setq cir_ owner (objown cir); #<vla-object iacadspace [...]> > > >
(setq cir_ owner_n (objown_name cir) ; "*model_space"
(setq cir_on_modspa (modspa_obj_p cir)
--------------- --------------- --------------- ---------------
(setq cir_on_modspa (modspa_obj_p_bad cir_id) ; nil
(setq cir_on_modspa (modspa_obj_p_bad cir_id*)
(setq cir_on_modspa (modspa_obj_p_bad cir_handle) ; nil
--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------
; cir'den çıkarabileceğim bazı mülkler onu vla-item'e metin olarak geçmek için
; model uzay koleksiyonu, cir olup olmadığını kontrol etmek için mevcut tüm eşyaları taramadan tam olarak cir mi?
; işlevi yapılandırıldığı gibi, ben geri dönmeliyim ve nil değil
--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------(setq xx)________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________ cir)
(setq cir_on_modspa (modspa_obj_p_bad xx)--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------
Size çok fazla genç teşekkür ederim
; Bazı prosedürler sorumu sanatsallaştırmak için
--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------(işlev) acaapp (vlax-get-acad-object)
(defunfun) Docact () (fla-get-activedocumen t (acaapp))
(defunfun) modpa (vla-get-modelspace)
(defunfun) objown (obj)
(defunfun) Organizasyon Organizasyon (j) (vla-get-name (objown kucaklama)--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------
; takip edilen iki b (iki vaaz) prosedürü teorik olarak aynı sonucu sağlamalıdır.
; veya model uzay koleksiyonunda bir nesne mevcut olup olmadığını doğrulayın. Sadece ilk eserler, ikincisi
; belki kavramsal olarak geçerli değil ya da belki de nesneye doğrudan işaret etmek için hangi metinin ne anlama geldiğini bilmiyorum.
; indeksi bilmiyor mu?
--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------(işlev) (PHP 4 = 41.0) (j)
(= (objown_name kiss) "*model_space")· ----- --------------- --------------- --------------- ---------------(işlev) (PHP 4 = 41.0) (txt); b
(vl-catch-all-error-p (vl-catch-all-all-apply 'vla-item (list (mog_modspa) txt)))--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------
; prosedürlerin kullanımının örneği
--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------(setq cir (vla-item (modspa) 0) [...]> > > >
(setq cir_id (vla-get-objectid cir) ; 45
(setq cir_id* (itoa (vla-get-objectid cir) ; "2747619073200"
(setq cir_handle (vla-get-handle cir) ; "2c3"
(setq cir_ owner (objown cir); #<vla-object iacadspace [...]> > > >
(setq cir_ owner_n (objown_name cir) ; "*model_space"
(setq cir_on_modspa (modspa_obj_p cir)
--------------- --------------- --------------- ---------------
(setq cir_on_modspa (modspa_obj_p_bad cir_id) ; nil
(setq cir_on_modspa (modspa_obj_p_bad cir_id*)
(setq cir_on_modspa (modspa_obj_p_bad cir_handle) ; nil
--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------
; cir'den çıkarabileceğim bazı mülkler onu vla-item'e metin olarak geçmek için
; model uzay koleksiyonu, cir olup olmadığını kontrol etmek için mevcut tüm eşyaları taramadan tam olarak cir mi?
; işlevi yapılandırıldığı gibi, ben geri dönmeliyim ve nil değil
--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------(setq xx)________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________ cir)
(setq cir_on_modspa (modspa_obj_p_bad xx)--------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- --------------- ---------------
Size çok fazla genç teşekkür ederim