Topic: 3dsout error

[dussla]

hi friend
i use cad 2004
i used  3dsout command in lisp

Code: [Select]

(defun C:3ds ( / old )

(setq old (ssget))      

(c:3dsout old 0 0 -1 0.001 "weld.3ds")         

)
   

but there is error
that is "  there is no 3dsout command"
then i excute    3dsout   in cad command  window
after that ,  i  excute 3ds lisp
then  , that is ok
i don;t know well

[dgorsman]

Probably in a demand-loaded ARX.  MTEXT is the same way.

[CAB]

From the looks of this:

Code: [Select]

(defun acet-3ds-convert-ent ( na / fna na2 e1 ss props )
 
 (acet-arxload-or-bust "aclsobj.arx")
 (acet-arxload-or-bust "acrender.arx")
 
 (setq fna (vl-filename-mktemp nil nil ".3ds"))
 (if (findfile fna)
     (vl-file-delete fna)
 );if
 (setq   na2 (entlast)
          e1 (entget na)
       props (acet-general-props-get e1)
 );setq
 
 (acet-ucs-cmd '("_world"))
 (c:3dsout (ssadd na (ssadd)) 0 2 30 0.001 fna)
 (c:3dsin 0 1 3 fna)
 (acet-ucs-cmd '("_prev"))
 
 (vl-file-delete fna)
 (setq ss (acet-ss-new na2)) ;return the new objects in a selection set
 (if ss
     (acet-general-props-set ss props)
 );if
 ss
);defun acet-3ds-convert-ent
One or both of these must be executed first.

Code: [Select]

(acet-arxload-or-bust "aclsobj.arx")
 (acet-arxload-or-bust "acrender.arx")

[dussla]

wow
perpect ~~
really thank you , thank you
good day , good luck always ~