[elektro] Szetszedtem 546

[Kovács József]

 > Kérlek segíts, mert hülyén fogok meghalni :(
 > (legalább 3 alaputasítás, hogy képben legyek....)

>  JAni


Egy kis LISP.
(windows+autocad a környzet, mivel
az autocad LISP bázisú)

Innen van...

http://www.jtbworld.com/lisp.htm

KJ


*This is how you can preset the Path type in the xref attach dialog box
*;;; Sets the Xref Path type used in the xref attach dialog box
;;; Absolute Path: (SetPathType 0)
;;; Relative Path: (SetPathType 1)
;;; No Path: (SetPathType 2)

(defun SetPathType (v)
   (vl-load-com)
   (vl-registry-write
     (strcat
       "HKEY_CURRENT_USER\\"
       (vlax-product-key)
       "\\Profiles\\"
       (vla-get-activeprofile
	(vla-get-profiles
	  (vla-get-preferences (vlax-get-acad-object))
	)
       )
       "\\Dialogs\\XattachDialog"
     )
     "PathType"
     v
   )
)

;;; Gets the Xref Path type used in the xref attach dialog box
;;; 0 = Absolute Path
;;; 1 = Relative Path
;;; 2 = No Path

(defun GetPathType ()
   (vl-load-com)
   (vl-registry-read
     (strcat
       "HKEY_CURRENT_USER\\"
       (vlax-product-key)
       "\\Profiles\\"
       (vla-get-activeprofile
	(vla-get-profiles
	  (vla-get-preferences (vlax-get-acad-object))
	)
       )
       "\\Dialogs\\XattachDialog"
     )
     "PathType"
   )
)





>