(in-package  :PSOL)
(use-package :oli)

(defparameter *ObjectParentName* "/" "/")
(defparameter *ObjectPathName* "/" "/")

(defparameter *keep-sketch* :no)

; debug output !

(defun debug-out (txt)
   (display txt)
)

(defun cat-path-name (path name) (format nil "~A/~A" path name) )


(defun select-wp (path wp-name)
  (let ((full-solid-name (cat-path-name path wp-name)))
    (current_wp full-solid-name))
)


; create a new empty working part or opens a existing one
(defun cond-new-part (asm-path file-path solid-name)  
  (unless (open-document asm-path file-path :part)
      (debug-out "create new part")
      (create_part :owner asm-path :name solid-name)     			
		)
)

; not yet impl.
;(defun finish-new-part (solid-name)      
;(save-new-part solid-name)
;)


(defun create-abs-sketch (dest-path sketch-name base-x base-y base-z x1 y1 z1 x2 y2 z2)
  (create_workplane :new :owner dest-path :name sketch-name
			:pt_pt_pt
			(make-gpnt3d :x base-x :y base-y :z base-z)
			(make-gpnt3d :x (+ x1 base-x) :y (+ y1 base-y) :z (+ z1 base-z))
			(make-gpnt3d :x (+ x2 base-x) :y (+ y2 base-y) :z (+ z2 base-z)))		  
)

; create a circle on the current plane !
(defun create-sketch-circle (x y r)  (circle :cen_rad (make-gpnt2d :x x :y y) r))

(defun create-sketch-line (x1 y1 x2 y2)  
    (line :two_points (make-gpnt2d :x x1 :y y1) (make-gpnt2d :x x2 :y y2))    
)

; create a arc based on 3 points
(defun create-sketch-arc-3p (x1 y1 x2 y2 x3 y3)
    (arc :3_pos
         (make-gpnt2d :x x1 :y y1)
         (make-gpnt2d :x x3 :y y3)
         (make-gpnt2d :x x2 :y y2))
)

(defun create-extrude-base (path sketch-name length side)    
    (select-wp path sketch-name)
    (extrude :auto_direction :yes	     
	     :wp (sd-inq-obj-pathname (sd-inq-curr-wp))
	     :distance_type :distance length
	     :direction side
	     :keep_profile *keep-sketch*
	     :keep_wp *keep-sketch*
	     )
)

(defun create-extrude-base-angle (path sketch-name length side angle)    
	(setq angle (sd-deg-to-rad angle))
    (select-wp path sketch-name)
    (extrude :auto_direction :yes	     
	     :wp (sd-inq-obj-pathname (sd-inq-curr-wp))
	     :distance_type :distance length
	     :direction side
	     :draft_angle :on
	     :draft_angle
	     angle
	     :keep_profile *keep-sketch*
	     :keep_wp *keep-sketch*
	     )
)

(defun create-extrude-cut (path sketch-name length side)    
    (select-wp path sketch-name)
    (mill :auto_direction :yes	     
	     :wp (sd-inq-obj-pathname (sd-inq-curr-wp))
	     :distance_type :distance length
	     :direction side
	     :keep_profile *keep-sketch*
	     :keep_wp *keep-sketch*
	     )
)

(defun create-extrude-cut-angle (path sketch-name length side angle)    
	(setq angle (sd-deg-to-rad angle))
    (select-wp path sketch-name)
    (mill :auto_direction :yes	     
	     :wp (sd-inq-obj-pathname (sd-inq-curr-wp))
	     :distance_type :distance length
	     :direction side
	     :draft_angle :on
	     :draft_angle
	     angle
	     :keep_profile *keep-sketch*
	     :keep_wp *keep-sketch*
	     )
)

(defun create-revolve-base (path sketch-name x1 y1 z1 x2 y2 z2 angle side)            
	(setq angle (sd-deg-to-rad angle))
		(select-wp path sketch-name)
		(case side
		  (:+W
				(turn :axis
				:two_pta (make-gpnt3d :x x1 :y y1 :z z1) (make-gpnt3d :x x2 :y y2 :z z2)
				:wp (sd-inq-obj-pathname (sd-inq-curr-wp))
				:keep_profile *keep-sketch*
				:keep_wp *keep-sketch*
				:rotation_angle angle
				)          
		 )
		 (:-W
				(turn :axis
				:two_pta (make-gpnt3d :x x1 :y y1 :z z1) (make-gpnt3d :x x2 :y y2 :z z2)
				:wp (sd-inq-obj-pathname (sd-inq-curr-wp))
				:keep_profile *keep-sketch*
				:keep_wp *keep-sketch*
				:rotation_angle (- angle)
				)          
		 )
		 (:BOTH_SIDES
				(turn :axis
				:two_pta (make-gpnt3d :x x1 :y y1 :z z1) (make-gpnt3d :x x2 :y y2 :z z2)
				:wp (sd-inq-obj-pathname (sd-inq-curr-wp))
				:keep_profile :yes
				:keep_wp :yes
				:rotation_angle angle
				)
				(turn :axis
				:two_pta (make-gpnt3d :x x1 :y y1 :z z1) (make-gpnt3d :x x2 :y y2 :z z2)
				:wp (sd-inq-obj-pathname (sd-inq-curr-wp))
				:keep_profile *keep-sketch*
				:keep_wp *keep-sketch*
				:rotation_angle (- angle)
				)          
		 )
	)
)

(defun create-revolve-cut (path sketch-name x1 y1 z1 x2 y2 z2 angle side)            
	(setq angle (sd-deg-to-rad angle))
		(select-wp path sketch-name)
		(case side
		  (:+W
				(bore :axis
				:two_pta (make-gpnt3d :x x1 :y y1 :z z1) (make-gpnt3d :x x2 :y y2 :z z2)
				:wp (sd-inq-obj-pathname (sd-inq-curr-wp))
				:keep_profile *keep-sketch*
				:keep_wp *keep-sketch*
				:rotation_angle angle
				)          
		 )
		 (:-W
				(bore :axis
				:two_pta (make-gpnt3d :x x1 :y y1 :z z1) (make-gpnt3d :x x2 :y y2 :z z2)
				:wp (sd-inq-obj-pathname (sd-inq-curr-wp))
				:keep_profile *keep-sketch*
				:keep_wp *keep-sketch*
				:rotation_angle (- angle)
				)          
		 )
		 (:BOTH_SIDES
				(bore :axis
				:two_pta (make-gpnt3d :x x1 :y y1 :z z1) (make-gpnt3d :x x2 :y y2 :z z2)
				:wp (sd-inq-obj-pathname (sd-inq-curr-wp))
				:keep_profile :yes
				:keep_wp :yes
				:rotation_angle angle
				)
				(bore :axis
				:two_pta (make-gpnt3d :x x1 :y y1 :z z1) (make-gpnt3d :x x2 :y y2 :z z2)
				:wp (sd-inq-obj-pathname (sd-inq-curr-wp))
				:keep_profile *keep-sketch*
				:keep_wp *keep-sketch*
				:rotation_angle (- angle)
				)          
		 )
	)
)

(defun transform-document (full_name ox1 oy1 oz1 ox2 oy2 oz2 ox3 oy3 oz3
                                     nx1 ny1 nz1 nx2 ny2 nz2 nx3 ny3 nz3)
		(position_pa full_name 
		 :MATCH_THREE_PTS
			(make-gpnt3d :x ox1 :y oy1 :z oz1) (make-gpnt3d :x nx1 :y ny1 :z nz1)
			(make-gpnt3d :x ox2 :y oy2 :z oz2) (make-gpnt3d :x nx2 :y ny2 :z nz2)
			(make-gpnt3d :x ox3 :y oy3 :z oz3) (make-gpnt3d :x nx3 :y ny3 :z nz3)
		)
)

(defun createSharedPart(x y z x1 y1 z1 x2 y2 z2)
	(if (string= *ObjectParentName* "/")
		(defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* *ObjectPartName*))
		(defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* "/" *ObjectPartName*))
	)
(if (sd-pathname-to-obj *ObjectPathName*)
  (progn
	(CREATE_MULTIPLE_PA :SHARE :OWNER *ObjectParentName* :SOURCE *ObjectPathName*)
  )
  (progn		
	(defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* *ObjectPartName*))
	(CREATE_MULTIPLE_PA :SHARE :OWNER "/" :SOURCE (concatenate 'string "/" *ObjectPartName*))
	(CHANGE_PA_OWNER :PARTS_ASSEMBLIES (sd-inq-curr-part) :NEW_OWNER *ObjectParentName*)
  )
)	
	(setq posVec (sd-vec-xform 0,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x0 (gpnt3d_x posVec))
			(y0 (gpnt3d_y posVec))
	        (z0 (gpnt3d_z posVec)))
	(setq posXVec (sd-vec-xform 1,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x01 (gpnt3d_x posXVec))
			(y01 (gpnt3d_y posXVec))
	        (z01 (gpnt3d_z posXVec)))
	(setq posYVec (sd-vec-xform 0,1,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x02 (gpnt3d_x posYVec))
			(y02 (gpnt3d_y posYVec))
	        (z02 (gpnt3d_z posYVec)))
	(transform-document (sd-inq-curr-part) x0 y0 z0 x01 y01 z01 x02 y02 z02 x y z x1 y1 z1 x2 y2 z2)
	)))
)


(defun LoadObject(partName classType)
(if (string= elan-ui::*mm-enabled* t)
(progn
	(setq elid (oli::sd-db-element-exists :identifier partName :database-type classType))
	(if (string= elid nil)
		(+ 0 0)	; RETURN 0
		(progn
			(oli::sd-db-element-load  :database-elid elid)
			(+ 1 0)	; RETURN 1
;				(return)
		)
	)
)
(progn
	(+ 0 0)	; RETURN 0
)
)
)



(defun GenerateObject()
  (defparameter *ObjectParentName* (concatenate 'string "/" *ObjectAsmName*))




  (if (sd-pathname-to-obj "/330base")
    (defparameter *IsObjectNameExits* 1 "")
    (defparameter *IsObjectNameExits* 0 "")
  )
  (if (= *IsObjectNameExits* 1)
  (progn
    (defparameter *ObjectPartName* (sd-gen-obj-basename :part :prefix "330base") "330base")
    (CREATE_MULTIPLE_PA :share :owner *ObjectParentName* :source "/330base")
	(setq posVec (sd-vec-xform 0,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x0 (gpnt3d_x posVec))
			(y0 (gpnt3d_y posVec))
	        (z0 (gpnt3d_z posVec)))
	(setq posXVec (sd-vec-xform 1,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x01 (gpnt3d_x posXVec))
			(y01 (gpnt3d_y posXVec))
	        (z01 (gpnt3d_z posXVec)))
	(setq posYVec (sd-vec-xform 0,1,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x02 (gpnt3d_x posYVec))
			(y02 (gpnt3d_y posYVec))
	        (z02 (gpnt3d_z posYVec)))
	(transform-document (sd-inq-curr-part) x0 y0 z0 x01 y01 z01 x02 y02 z02 0 0 0 1 0 0 0 1 0)
	)))
	)
  (progn
    (defparameter *ObjectPartName* "330base" "330base")
  	 (if (string= *ObjectParentName* "/")
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* *ObjectPartName*))
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* "/" *ObjectPartName*))
	 )
    (if (= (LoadObject (concatenate 'string "PSOL_" *ObjectPartName*) "LIBRARY_3D") 1)
    (progn	; SUB PART EXISTS, LOADED FROM MM
    (CHANGE_NAME_PA :PART_ASMB (sd-inq-obj-pathname (sd-inq-curr-part)) :NAME *ObjectPartName* )
    (CHANGE_PA_OWNER :NEW_OWNER *ObjectParentName* :PARTS_ASSEMBLIES (concatenate 'string "/" *ObjectPartName*))
    ); SUB PART EXISTS, LOADED FROM MM
    (progn	; SUB PART CREATE START
    (create_part :owner *ObjectParentName* :name *ObjectPartName*)
  (sd-attach-item-attribute (sd-inq-curr-part) "PARTsolutions-attribute" :attachment :instance :on-copy :copy :on-xform :maintain :values '("mident" "{%5C%5Cpartserver001.servicenet%5Cdplatte%5Ccadenas%5C23d-libs%5Cdestaco%5Cindustries%5Cmanual_clamps%5Clatch_clamps%5Cbase%5C330_base.prj}%2C158%20{VTYP=3D}%2C{NB=330base}%2C{LINA=330base}%2C{NN=330%20Seriesbase}%2C{DATE=08.05.2006%2013:11:14}%2C{GEOMDATE=08.05.2006}%2C{VERSION=}%2C{LINEID=10}%2C{LINESUBID=-1}%2C{WBVAR=LPA}%20%20{NB=330base}%2C{LINA=330base}%2C{KT=DUMMY}%2C{PN=330}%2C{MN=330}%2C{EDP=53300}%2C{HC=200}%2C{W=0.24}%2C{DM=2.31}%2C{T=M5x0.8}%2C{OHL=3.78}%2C{A=22.9}%2C{AIN=0.90}%2C{B=143.3}%2C{BIN=5.64}%2C{C=14.2}%2C{CIN=0.56}%2C{D=12.7}%2C{DIN=0.50}%2C{E=31.2}%2C{EIN=1.23}%2C{F=25.4}%2C{FIN=1.00}%2C{G=42.9}%2C{GIN=1.69}%2C{J=5.6}%2C{JIN=0.22}%2C{K=7.9}%2C{KIN=0.31}%2C{N=4.8}%2C{NIN=0.19}%2C{QMIN=40.6}%2C{QMININ=1.60}%2C{QMAX=47.0}%2C{QMAXIN=1.85}%2C{A1=0.7200}%2C{A2=0.4840}%2C{L1=1.0000}%2C{L2=0.6250}%2C{L3=0.5000}%2C{W1=0.2500}%2C{T1=0.1220}%2C{R1=0.1900}%2C{R2=0.0600}%2C{D1=0.2190}%2C{D2=0.1270}%2C{D3=0.3100}%2C{H1=0.7500}%2C{H2=0.5600}%2C{MNH=330103}%2C{LPA=}%2C{LPAA=}%2C{LD=35.0000}"))
(if (string= (sd-license-free-module-active-p "ModelManager") t)
(progn
	(sd-define-db-attribute "LINATEST" :class-name "LIBRARY_3D" :keys '() :attachment :contents :allowed-owner-types :part-assembly)
	(sd-assign-db-attribute "LINATEST" (sd-inq-curr-part)  '())
)
()
)

    (set_part_base_color :parts *ObjectPathName* :color :rgb (gpnt3d 0.75294119119644 0.75294119119644 0.75294119119644))
    (set_part_inst_color :parts *ObjectPathName* :color :rgb (gpnt3d 0.75294119119644 0.75294119119644 0.75294119119644))
(create-abs-sketch "/330/" "Sketch_2" -21.463 0 0 0 0 -1 0 1 0)
(create-sketch-line -12.7 0 12.7 0)
(create-sketch-line 12.7 0 12.7 14.224)
(create-sketch-arc-3p 12.7 14.224 11.286497326006 17.636497326006 7.874 19.05)
(create-sketch-line 7.874 19.05 -7.874 19.05)
(create-sketch-arc-3p -7.874 19.05 -11.286497326006 17.636497326006 -12.7 14.224)
(create-sketch-line -12.7 14.224 -12.7 0)
(create-sketch-circle 7.9375 14.224 1.6129)
(create-extrude-base "/330/" "Sketch_2" 42.926 :+W)
(create-abs-sketch "/330/" "Sketch_3" 0 0 7.9375 1 0 0 0 1 0)
(create-sketch-line -3.175 39.624 -3.175 17.9705)
(create-sketch-line -3.175 17.9705 -2.9845 18.161)
(create-sketch-line -2.9845 18.161 2.9845 18.161)
(create-sketch-line 2.9845 18.161 3.175 17.9705)
(create-sketch-line 3.175 17.9705 3.175 39.624)
(create-sketch-line 3.175 39.624 -3.175 39.624)
(create-revolve-cut "/330/" "Sketch_3" 3.175 14.224 7.9375 -3.175 14.224 7.9375 360 :-W)
(create-abs-sketch "/330/" "Sketch_4" 0 0 -25.4 1 0 0 0 1 0)
(create-sketch-line -50 50 -50 -50)
(create-sketch-line -50 -50 50 -50)
(create-sketch-line 50 -50 50 50)
(create-sketch-line 50 50 -50 50)
(create-sketch-line -46.9012 0 -7.7978 0)
(create-sketch-arc-3p -7.7978 0 -4.5289867719308 1.3539867719308 -3.175 4.6228)
(create-sketch-line -3.175 4.6228 -3.175 9.2964)
(create-sketch-line -3.175 9.2964 3.175 9.2964)
(create-sketch-line 3.175 9.2964 3.175 4.6228)
(create-sketch-arc-3p 3.175 4.6228 4.5289867719308 1.3539867719308 7.7978 0)
(create-sketch-line 7.7978 0 46.9012 0)
(create-sketch-line 46.9012 0 46.9012 3.0988)
(create-sketch-line 46.9012 3.0988 7.7978 3.0988)
(create-sketch-arc-3p 7.7978 3.0988 6.7201692654717 3.5451692654717 6.2738 4.6228)
(create-sketch-line 6.2738 4.6228 6.2738 22.1488)
(create-sketch-line 6.2738 22.1488 -6.2738 22.1488)
(create-sketch-line -6.2738 22.1488 -6.2738 4.6228)
(create-sketch-arc-3p -6.2738 4.6228 -6.7201692654717 3.5451692654717 -7.7978 3.0988)
(create-sketch-line -7.7978 3.0988 -46.9012 3.0988)
(create-sketch-line -46.9012 3.0988 -46.9012 0)
(create-extrude-cut "/330/" "Sketch_4" 50.8 :+W)
(create-abs-sketch "/330/" "Sketch_5" 0 -3.0988 0 1 0 0 0 0 -1)
(create-sketch-circle 15.4686 6.35 2.7813)
(create-extrude-cut "/330/" "Sketch_5" 6.1976 :+W)
(create-abs-sketch "/330/" "Sketch_6" 0 -3.0988 0 1 0 0 0 0 -1)
(create-sketch-circle -15.4686 6.35 2.7813)
(create-extrude-cut "/330/" "Sketch_6" 6.1976 :+W)
(create-abs-sketch "/330/" "Sketch_7" 0 -3.0988 0 1 0 0 0 0 -1)
(create-sketch-circle 15.4686 -6.35 2.7813)
(create-extrude-cut "/330/" "Sketch_7" 6.1976 :+W)
(create-abs-sketch "/330/" "Sketch_8" 0 -3.0988 0 1 0 0 0 0 -1)
(create-sketch-circle -15.4686 -6.35 2.7813)
(create-extrude-cut "/330/" "Sketch_8" 6.1976 :+W)
(create-abs-sketch "/330/" "Sketch_9" 0 -3.0988 0 1 0 0 0 0 -1)
(create-sketch-line -42.926 -25.4 42.926 -25.4)
(create-sketch-line 42.926 -25.4 42.926 25.4)
(create-sketch-line 42.926 25.4 -42.926 25.4)
(create-sketch-line -42.926 25.4 -42.926 -25.4)
(create-sketch-line -21.463 6.35 -21.463 -6.35)
(create-sketch-arc-3p -21.463 -6.35 -19.603128060535 -10.840128060535 -15.113 -12.7)
(create-sketch-line -15.113 -12.7 15.113 -12.7)
(create-sketch-arc-3p 15.113 -12.7 19.603128060535 -10.840128060535 21.463 -6.35)
(create-sketch-line 21.463 -6.35 21.463 6.35)
(create-sketch-arc-3p 21.463 6.35 19.603128060535 10.840128060535 15.113 12.7)
(create-sketch-line 15.113 12.7 -15.113 12.7)
(create-sketch-arc-3p -15.113 12.7 -19.603128060535 10.840128060535 -21.463 6.35)
(create-extrude-cut "/330/" "Sketch_9" 6.1976 :+W)
  (defparameter *VOLUMEN* (oli::sd-call-cmds (get_vol_prop :for_part :part_asmb (oli::sd-inq-curr-part) :volume)))
  (defparameter *DENSITY* (/ *VOLUMEN* 1))
  (SET_PART_BASE_DENSITY :PARTS (oli::sd-inq-curr-part) :DENS *DENSITY*)

()  ;MISSING BEFORE_SAVE_PART_IN_DB

  (setq name-in-library (sd-set-library-attr (sd-inq-curr-part) "PSOL" "330base" ))
()  ;MISSING SAVE_PART_IN_DB

()  ;MISSING AFTER_SAVE_PART_IN_DB

    )	; SUB PART CREATE END
    )	; END IF
  (transform-document (sd-inq-curr-part) 0 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 1 0)
  )
  )



  (if (sd-pathname-to-obj "/202112handle")
    (defparameter *IsObjectNameExits* 1 "")
    (defparameter *IsObjectNameExits* 0 "")
  )
  (if (= *IsObjectNameExits* 1)
  (progn
    (defparameter *ObjectPartName* (sd-gen-obj-basename :part :prefix "202112handle") "202112handle")
    (CREATE_MULTIPLE_PA :share :owner *ObjectParentName* :source "/202112handle")
	(setq posVec (sd-vec-xform 0,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x0 (gpnt3d_x posVec))
			(y0 (gpnt3d_y posVec))
	        (z0 (gpnt3d_z posVec)))
	(setq posXVec (sd-vec-xform 1,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x01 (gpnt3d_x posXVec))
			(y01 (gpnt3d_y posXVec))
	        (z01 (gpnt3d_z posXVec)))
	(setq posYVec (sd-vec-xform 0,1,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x02 (gpnt3d_x posYVec))
			(y02 (gpnt3d_y posYVec))
	        (z02 (gpnt3d_z posYVec)))
	(transform-document (sd-inq-curr-part) x0 y0 z0 x01 y01 z01 x02 y02 z02 0 14.224 7.9375 -1 14.224 7.9375 0 14.224 6.9375)
	)))
	)
  (progn
    (defparameter *ObjectPartName* "202112handle" "202112handle")
  	 (if (string= *ObjectParentName* "/")
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* *ObjectPartName*))
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* "/" *ObjectPartName*))
	 )
    (if (= (LoadObject (concatenate 'string "PSOL_" *ObjectPartName*) "LIBRARY_3D") 1)
    (progn	; SUB PART EXISTS, LOADED FROM MM
    (CHANGE_NAME_PA :PART_ASMB (sd-inq-obj-pathname (sd-inq-curr-part)) :NAME *ObjectPartName* )
    (CHANGE_PA_OWNER :NEW_OWNER *ObjectParentName* :PARTS_ASSEMBLIES (concatenate 'string "/" *ObjectPartName*))
    ); SUB PART EXISTS, LOADED FROM MM
    (progn	; SUB PART CREATE START
    (create_part :owner *ObjectParentName* :name *ObjectPartName*)
  (sd-attach-item-attribute (sd-inq-curr-part) "PARTsolutions-attribute" :attachment :instance :on-copy :copy :on-xform :maintain :values '("mident" "{%5C%5Cpartserver001.servicenet%5Cdplatte%5Ccadenas%5C23d-libs%5Cdestaco%5Cindustries%5Cmanual_clamps%5Clatch_clamps%5Chandle%5C330_handle.prj}%2C172%20{VTYP=3D}%2C{NB=202112handle}%2C{LINA=202112handle}%2C{NN=202112handle}%2C{DATE=27.02.2008%2010:14:43}%2C{GEOMDATE=27.02.2008%2010:14:00}%2C{VERSION=}%2C{LINEID=10}%2C{LINESUBID=-1}%2C{WBVAR=}%20%20{NB=202112handle}%2C{LINA=202112handle}%2C{KT=DUMMY}%2C{MN=202112}%2C{L1=3.5800}%2C{L2=1.2810}%2C{L3=0.1875}%2C{L4=0.2813}%2C{T1=0.1220}%2C{T2=0.0600}%2C{W1=0.2500}%2C{R1=0.0625}%2C{R2=0.1875}%2C{R3=0.1250}%2C{D1=0.1270}"))
(if (string= (sd-license-free-module-active-p "ModelManager") t)
(progn
	(sd-define-db-attribute "LINATEST" :class-name "LIBRARY_3D" :keys '() :attachment :contents :allowed-owner-types :part-assembly)
	(sd-assign-db-attribute "LINATEST" (sd-inq-curr-part)  '())
)
()
)

    (set_part_base_color :parts *ObjectPathName* :color :rgb (gpnt3d 0.75294119119644 0.75294119119644 0.75294119119644))
    (set_part_inst_color :parts *ObjectPathName* :color :rgb (gpnt3d 0.75294119119644 0.75294119119644 0.75294119119644))
(create-abs-sketch "/330/" "Sketch_1" 0 0 -5.7625 1 0 0 0 1 0)
(create-sketch-arc-3p -10.9728 6.9440640302673 -10.851958757862 6.3365540813877 -10.507832015134 5.8215320151337)
(create-sketch-line -10.507832015134 5.8215320151337 -9.9137679848663 5.2274679848663)
(create-sketch-arc-3p -9.9137679848663 5.2274679848663 -9.5696412421383 4.7124459186123 -9.4488 4.1049359697327)
(create-sketch-line -9.4488 4.1049359697327 -9.4488 -9.7625)
(create-sketch-line -9.4488 -9.7625 -6.35 -9.7625)
(create-sketch-line -6.35 -9.7625 -6.35 5.3885009568145)
(create-sketch-arc-3p -6.35 5.3885009568145 -6.4708412421383 5.996010905694 -6.8149679848664 6.5110329719481)
(create-sketch-line -6.8149679848664 6.5110329719481 -7.4090320151336 7.1050970022154)
(create-sketch-arc-3p -7.4090320151336 7.1050970022154 -7.7531587578617 7.6201190684694 -7.874 8.227629017349)
(create-sketch-line -7.874 8.227629017349 -7.874 24.309770982651)
(create-sketch-arc-3p -7.874 24.309770982651 -7.7531587578617 24.917280931531 -7.4090320151336 25.432302997785)
(create-sketch-line -7.4090320151336 25.432302997785 -6.8149679848664 26.026367028052)
(create-sketch-arc-3p -6.8149679848664 26.026367028052 -6.4708412421383 26.541389094306 -6.35 27.148899043186)
(create-sketch-line -6.35 27.148899043186 -6.35 38.367291939465)
(create-sketch-arc-3p -6.35 38.367291939465 -6.1083175157233 39.582311837225 -5.4200640302673 40.612355969733)
(create-sketch-line -5.4200640302673 40.612355969733 -1.8375534761918 44.194866523808)
(create-sketch-arc-3p -1.8375534761918 44.194866523808 -0.82705835608907 45.517662886704 -0.20000091957055 47.059638844655)
(create-sketch-arc-3p -0.20000091957055 47.059638844655 1.2649367230749e-017 47.214479177969 0.20000093859809 47.059638771112)
(create-sketch-arc-3p 0.20000093859809 47.059638771112 0.82705835608907 45.517662886704 1.8375534761918 44.194866523808)
(create-sketch-line 1.8375534761918 44.194866523808 5.4200640302673 40.612355969733)
(create-sketch-arc-3p 5.4200640302673 40.612355969733 6.1083175157233 39.582311837225 6.35 38.367291939465)
(create-sketch-line 6.35 38.367291939465 6.35 27.148899043186)
(create-sketch-arc-3p 6.35 27.148899043186 6.4708412421383 26.541389094306 6.8149679848664 26.026367028052)
(create-sketch-line 6.8149679848664 26.026367028052 7.4090320151336 25.432302997785)
(create-sketch-arc-3p 7.4090320151336 25.432302997785 7.7531587578617 24.917280931531 7.874 24.309770982651)
(create-sketch-line 7.874 24.309770982651 7.874 8.227629017349)
(create-sketch-arc-3p 7.874 8.227629017349 7.7531587578617 7.6201190684695 7.4090320151336 7.1050970022154)
(create-sketch-line 7.4090320151336 7.1050970022154 6.8149679848664 6.5110329719481)
(create-sketch-arc-3p 6.8149679848664 6.5110329719481 6.4708412421383 5.996010905694 6.35 5.3885009568145)
(create-sketch-line 6.35 5.3885009568145 6.35 -9.7625)
(create-sketch-line 6.35 -9.7625 9.4488 -9.7625)
(create-sketch-line 9.4488 -9.7625 9.4488 4.1049359697327)
(create-sketch-arc-3p 9.4488 4.1049359697327 9.5696412421383 4.7124459186123 9.9137679848664 5.2274679848664)
(create-sketch-line 9.9137679848664 5.2274679848664 10.507832015134 5.8215320151336)
(create-sketch-arc-3p 10.507832015134 5.8215320151336 10.851958757862 6.3365540813877 10.9728 6.9440640302673)
(create-sketch-line 10.9728 6.9440640302673 10.9728 25.593335969733)
(create-sketch-arc-3p 10.9728 25.593335969733 10.851958757862 26.200845918612 10.507832015134 26.715867984866)
(create-sketch-line 10.507832015134 26.715867984866 9.9137679848664 27.309932015134)
(create-sketch-arc-3p 9.9137679848664 27.309932015134 9.5696412421383 27.824954081388 9.4488 28.432464030267)
(create-sketch-line 9.4488 28.432464030267 9.4488 38.367291939465)
(create-sketch-arc-3p 9.4488 38.367291939465 8.9712354110693 40.768171257438 7.6112465238082 42.803538463274)
(create-sketch-line 7.6112465238082 42.803538463274 4.0287359697327 46.386049017349)
(create-sketch-arc-3p 4.0287359697327 46.386049017349 3.3404824842767 47.416093149857 3.0988 48.631113047616)
(create-sketch-line 3.0988 48.631113047616 3.0988 95.932)
(create-sketch-line 3.0988 95.932 -3.0988 95.932)
(create-sketch-line -3.0988 95.932 -3.0988 48.631113047616)
(create-sketch-arc-3p -3.0988 48.631113047616 -3.3404824842767 47.416093149857 -4.0287359697327 46.386049017349)
(create-sketch-line -4.0287359697327 46.386049017349 -7.6112465238082 42.803538463274)
(create-sketch-arc-3p -7.6112465238082 42.803538463274 -8.9712354110693 40.768171257438 -9.4488 38.367291939465)
(create-sketch-line -9.4488 38.367291939465 -9.4488 28.432464030267)
(create-sketch-arc-3p -9.4488 28.432464030267 -9.5696412421383 27.824954081388 -9.9137679848664 27.309932015134)
(create-sketch-line -9.9137679848664 27.309932015134 -10.507832015134 26.715867984866)
(create-sketch-arc-3p -10.507832015134 26.715867984866 -10.851958757862 26.200845918612 -10.9728 25.593335969733)
(create-sketch-line -10.9728 25.593335969733 -10.9728 6.9440640302673)
(create-extrude-base "/330/" "Sketch_1" 11.525 :+W)
(create-abs-sketch "/330/" "Sketch_2" -12.7 0 0 0 0 -1 0 1 0)
(create-sketch-line -19.256139505323 -19.380287907512 21.13478726194 -19.380287907513)
(create-sketch-line 21.13478726194 -19.380287907513 21.13478726194 106.80221974526)
(create-sketch-line 21.13478726194 106.80221974526 -19.256139505323 106.80221974526)
(create-sketch-line -19.256139505323 106.80221974526 -19.256139505323 -19.380287907512)
(create-sketch-line -4.7625 86.1695 -4.7625 0)
(create-sketch-arc-3p -4.7625 0 -8.7482816401186e-016 -4.7625 4.7625 0)
(create-sketch-line 4.7625 0 4.7625 86.1695)
(create-sketch-arc-3p 4.7625 86.1695 1.4580469400198e-015 90.932 -4.7625 86.1695)
(create-extrude-cut "/330/" "Sketch_2" 25.4 :+W)
(create-abs-sketch "/330/" "Sketch_3" 0 0 0 1 0 0 0 1 0)
(create-sketch-line -19.05 32.5374 -19.05 34.1503)
(create-sketch-line -19.05 34.1503 19.05 34.1503)
(create-sketch-line 19.05 34.1503 19.05 32.5374)
(create-sketch-line 19.05 32.5374 -19.05 32.5374)
(create-revolve-cut "/330/" "Sketch_3" 19.05 32.5374 0 -19.05 32.5374 0 360 :-W)
(create-abs-sketch "/330/" "Sketch_4" 0 0 0 1 0 0 0 1 0)
(create-sketch-line 9.4488 0 9.4488 2.41935)
(create-sketch-line 9.4488 2.41935 10.2108 2.41935)
(create-sketch-line 10.2108 2.41935 10.2108 0)
(create-sketch-line 10.2108 0 9.4488 0)
(create-revolve-base "/330/" "Sketch_4" 10.2108 0 0 9.4488 0 0 360 :-W)
(create-abs-sketch "/330/" "Sketch_5" 0 0 0 1 0 0 0 1 0)
(create-sketch-line -10.2108 0 -10.2108 2.41935)
(create-sketch-line -10.2108 2.41935 -9.4488 2.41935)
(create-sketch-line -9.4488 2.41935 -9.4488 0)
(create-sketch-line -9.4488 0 -10.2108 0)
(create-revolve-base "/330/" "Sketch_5" -9.4488 0 0 -10.2108 0 0 360 :-W)
  (defparameter *VOLUMEN* (oli::sd-call-cmds (get_vol_prop :for_part :part_asmb (oli::sd-inq-curr-part) :volume)))
  (defparameter *DENSITY* (/ *VOLUMEN* 1))
  (SET_PART_BASE_DENSITY :PARTS (oli::sd-inq-curr-part) :DENS *DENSITY*)

()  ;MISSING BEFORE_SAVE_PART_IN_DB

  (setq name-in-library (sd-set-library-attr (sd-inq-curr-part) "PSOL" "202112handle" ))
()  ;MISSING SAVE_PART_IN_DB

()  ;MISSING AFTER_SAVE_PART_IN_DB

    )	; SUB PART CREATE END
    )	; END IF
  (transform-document (sd-inq-curr-part) 0 0 0 1 0 0 0 1 0 0 14.224 7.9375 -1 14.224 7.9375 0 14.224 6.9375)
  )
  )



  (if (sd-pathname-to-obj "/330104_shoulder_bushing")
    (defparameter *IsObjectNameExits* 1 "")
    (defparameter *IsObjectNameExits* 0 "")
  )
  (if (= *IsObjectNameExits* 1)
  (progn
    (defparameter *ObjectPartName* (sd-gen-obj-basename :part :prefix "330104_shoulder_bushing") "330104_shoulder_bushing")
    (CREATE_MULTIPLE_PA :share :owner *ObjectParentName* :source "/330104_shoulder_bushing")
	(setq posVec (sd-vec-xform 0,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x0 (gpnt3d_x posVec))
			(y0 (gpnt3d_y posVec))
	        (z0 (gpnt3d_z posVec)))
	(setq posXVec (sd-vec-xform 1,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x01 (gpnt3d_x posXVec))
			(y01 (gpnt3d_y posXVec))
	        (z01 (gpnt3d_z posXVec)))
	(setq posYVec (sd-vec-xform 0,1,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x02 (gpnt3d_x posYVec))
			(y02 (gpnt3d_y posYVec))
	        (z02 (gpnt3d_z posYVec)))
	(transform-document (sd-inq-curr-part) x0 y0 z0 x01 y01 z01 x02 y02 z02 0 14.224 -24.5999 1 14.224 -24.5999 0 15.180304755963 -24.892271704723)
	)))
	)
  (progn
    (defparameter *ObjectPartName* "330104_shoulder_bushing" "330104_shoulder_bushing")
  	 (if (string= *ObjectParentName* "/")
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* *ObjectPartName*))
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* "/" *ObjectPartName*))
	 )
    (if (= (LoadObject (concatenate 'string "PSOL_" *ObjectPartName*) "LIBRARY_3D") 1)
    (progn	; SUB PART EXISTS, LOADED FROM MM
    (CHANGE_NAME_PA :PART_ASMB (sd-inq-obj-pathname (sd-inq-curr-part)) :NAME *ObjectPartName* )
    (CHANGE_PA_OWNER :NEW_OWNER *ObjectParentName* :PARTS_ASSEMBLIES (concatenate 'string "/" *ObjectPartName*))
    ); SUB PART EXISTS, LOADED FROM MM
    (progn	; SUB PART CREATE START
    (create_part :owner *ObjectParentName* :name *ObjectPartName*)
  (sd-attach-item-attribute (sd-inq-curr-part) "PARTsolutions-attribute" :attachment :instance :on-copy :copy :on-xform :maintain :values '("mident" "{%5C%5Cpartserver001.servicenet%5Cdplatte%5Ccadenas%5C23d-libs%5Cdestaco%5Cindustries%5Cmanual_clamps%5Clatch_clamps%5Cmidle_part%5C330_bushing.prj}%2C179%20{VTYP=3D}%2C{NB=330104_shoulder_bushing}%2C{LINA=330104_shoulder_bushing}%2C{NN=330104}%2C{DATE=05.05.2006%2009:26:25}%2C{GEOMDATE=05.05.2006}%2C{VERSION=}%2C{LINEID=10}%2C{LINESUBID=-1}%2C{WBVAR=}%20%20{NB=330104_shoulder_bushing}%2C{LINA=330104_shoulder_bushing}%2C{KT=DUMMY}%2C{MN=330104}%2C{L1=0.7500}%2C{L2=0.4950}%2C{D1=0.3125}%2C{D2=0.1240}%2C{D3=0.2188}%2C{W1=0.0938}%2C{R1=0.0156}%2C{C1=0.0156}%2C{A=0.0600}"))
(if (string= (sd-license-free-module-active-p "ModelManager") t)
(progn
	(sd-define-db-attribute "LINATEST" :class-name "LIBRARY_3D" :keys '() :attachment :contents :allowed-owner-types :part-assembly)
	(sd-assign-db-attribute "LINATEST" (sd-inq-curr-part)  '())
)
()
)

    (set_part_base_color :parts *ObjectPathName* :color :rgb (gpnt3d 0.75294119119644 0.75294119119644 0.75294119119644))
    (set_part_inst_color :parts *ObjectPathName* :color :rgb (gpnt3d 0.75294119119644 0.75294119119644 0.75294119119644))
(create-abs-sketch "/330/" "Sketch_1" 0 0 0 1 0 0 0 1 0)
(create-sketch-line -9.525 0 -9.525 1.17856)
(create-sketch-line -9.525 1.17856 -9.12876 1.5748)
(create-sketch-line -9.12876 1.5748 -6.68274 1.5748)
(create-sketch-arc-3p -6.68274 1.5748 -6.4025560090226 1.6908560090226 -6.2865 1.97104)
(create-sketch-line -6.2865 1.97104 -6.2865 3.96875)
(create-sketch-line -6.2865 3.96875 6.2865 3.96875)
(create-sketch-line 6.2865 3.96875 6.2865 1.97104)
(create-sketch-arc-3p 6.2865 1.97104 6.4025560090226 1.6908560090226 6.68274 1.5748)
(create-sketch-line 6.68274 1.5748 9.12876 1.5748)
(create-sketch-line 9.12876 1.5748 9.525 1.17856)
(create-sketch-line 9.525 1.17856 9.525 0)
(create-sketch-line 9.525 0 -9.525 0)
(create-revolve-base "/330/" "Sketch_1" 9.525 0 0 -9.525 0 0 360 :-W)
(create-abs-sketch "/330/" "Sketch_2" -19.05 0 0 0 0 -1 0 1 0)
(create-sketch-line 2.38252 -7.9375 10.32002 -7.9375)
(create-sketch-line 10.32002 -7.9375 10.32002 7.9375)
(create-sketch-line 10.32002 7.9375 2.38252 7.9375)
(create-sketch-line 2.38252 7.9375 2.38252 -7.9375)
(create-extrude-cut "/330/" "Sketch_2" 38.1 :+W)
(create-abs-sketch "/330/" "Sketch_3" 0 0 0 0 0 -1 0 1 0)
(create-sketch-line -3.96875 0 -3.96875 2.77876)
(create-sketch-line -3.96875 2.77876 11.90625 2.77876)
(create-sketch-line 11.90625 2.77876 11.90625 0)
(create-sketch-line 11.90625 0 -3.96875 0)
(create-revolve-cut "/330/" "Sketch_3" 0 0 -11.90625 0 0 3.96875 360 :-W)
  (defparameter *VOLUMEN* (oli::sd-call-cmds (get_vol_prop :for_part :part_asmb (oli::sd-inq-curr-part) :volume)))
  (defparameter *DENSITY* (/ *VOLUMEN* 1))
  (SET_PART_BASE_DENSITY :PARTS (oli::sd-inq-curr-part) :DENS *DENSITY*)

()  ;MISSING BEFORE_SAVE_PART_IN_DB

  (setq name-in-library (sd-set-library-attr (sd-inq-curr-part) "PSOL" "330104_shoulder_bushing" ))
()  ;MISSING SAVE_PART_IN_DB

()  ;MISSING AFTER_SAVE_PART_IN_DB

    )	; SUB PART CREATE END
    )	; END IF
  (transform-document (sd-inq-curr-part) 0 0 0 1 0 0 0 1 0 0 14.224 -24.5999 1 14.224 -24.5999 0 15.180304755963 -24.892271704723)
  )
  )



  (if (sd-pathname-to-obj "/330103hook")
    (defparameter *IsObjectNameExits* 1 "")
    (defparameter *IsObjectNameExits* 0 "")
  )
  (if (= *IsObjectNameExits* 1)
  (progn
    (defparameter *ObjectPartName* (sd-gen-obj-basename :part :prefix "330103hook") "330103hook")
    (CREATE_MULTIPLE_PA :share :owner *ObjectParentName* :source "/330103hook")
	(setq posVec (sd-vec-xform 0,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x0 (gpnt3d_x posVec))
			(y0 (gpnt3d_y posVec))
	        (z0 (gpnt3d_z posVec)))
	(setq posXVec (sd-vec-xform 1,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x01 (gpnt3d_x posXVec))
			(y01 (gpnt3d_y posXVec))
	        (z01 (gpnt3d_z posXVec)))
	(setq posYVec (sd-vec-xform 0,1,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x02 (gpnt3d_x posYVec))
			(y02 (gpnt3d_y posYVec))
	        (z02 (gpnt3d_z posYVec)))
	(transform-document (sd-inq-curr-part) x0 y0 z0 x01 y01 z01 x02 y02 z02 0 22.578521462452 2.7265084016437 1 22.578521462452 2.7265084016437 0 23.534826218415 2.434136696921)
	)))
	)
  (progn
    (defparameter *ObjectPartName* "330103hook" "330103hook")
  	 (if (string= *ObjectParentName* "/")
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* *ObjectPartName*))
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* "/" *ObjectPartName*))
	 )
    (if (= (LoadObject (concatenate 'string "PSOL_" *ObjectPartName*) "LIBRARY_3D") 1)
    (progn	; SUB PART EXISTS, LOADED FROM MM
    (CHANGE_NAME_PA :PART_ASMB (sd-inq-obj-pathname (sd-inq-curr-part)) :NAME *ObjectPartName* )
    (CHANGE_PA_OWNER :NEW_OWNER *ObjectParentName* :PARTS_ASSEMBLIES (concatenate 'string "/" *ObjectPartName*))
    ); SUB PART EXISTS, LOADED FROM MM
    (progn	; SUB PART CREATE START
    (create_part :owner *ObjectParentName* :name *ObjectPartName*)
  (sd-attach-item-attribute (sd-inq-curr-part) "PARTsolutions-attribute" :attachment :instance :on-copy :copy :on-xform :maintain :values '("mident" "{%5C%5Cpartserver001.servicenet%5Cdplatte%5Ccadenas%5C23d-libs%5Cdestaco%5Cindustries%5Cmanual_clamps%5Clatch_clamps%5Clink%5C330_hook.prj}%2C153%20{VTYP=3D}%2C{NB=330103hook}%2C{LINA=330103hook}%2C{NN=330103}%2C{DATE=08.05.2006%2007:46:28}%2C{GEOMDATE=08.05.2006}%2C{VERSION=}%2C{LINEID=10}%2C{LINESUBID=-1}%2C{WBVAR=}%20%20{NB=330103hook}%2C{LINA=330103hook}%2C{KT=DUMMY}%2C{MN=330103}%2C{A=2.0000}%2C{ANG1=17.0000}%2C{L1=1.5000}%2C{L2=0.1300}%2C{LT=0.7500}%2C{D=0.1730}%2C{NDM=5.0000}%2C{KDM=4.1340}%2C{R1=0.1600}"))
(if (string= (sd-license-free-module-active-p "ModelManager") t)
(progn
	(sd-define-db-attribute "LINATEST" :class-name "LIBRARY_3D" :keys '() :attachment :contents :allowed-owner-types :part-assembly)
	(sd-assign-db-attribute "LINATEST" (sd-inq-curr-part)  '())
)
()
)

    (set_part_base_color :parts *ObjectPathName* :color :rgb (gpnt3d 0.75294119119644 0.75294119119644 0.75294119119644))
    (set_part_inst_color :parts *ObjectPathName* :color :rgb (gpnt3d 0.75294119119644 0.75294119119644 0.75294119119644))
(create-abs-sketch "/330/" "Sketch_1" 0 0 0 0 0 -1 0 1 0)
(create-sketch-line 3 0 3 2.1971)
(create-sketch-line 3 2.1971 18.824660189935 2.1971)
(create-sketch-line 18.824660189935 2.1971 19.05 2.067)
(create-sketch-line 19.05 2.067 19.483 2.5)
(create-sketch-line 19.483 2.5 37.667 2.5)
(create-sketch-line 37.667 2.5 38.1 2.067)
(create-sketch-line 38.1 2.067 38.1 0)
(create-sketch-line 38.1 0 3 0)
(create-revolve-base "/330/" "Sketch_1" 0 0 -38.1 0 0 0 360 :-W)

(let ((face nil)
      (punkt-auf-gewinde-flaeche (gpnt3d 2.5 0 -28.575))
      (d-zylinder 5)
     )


      (create-abs-sketch "/" "skizze_imprint_1" 0 0 -19.05 1 0 0 0 1 0)
      (create-sketch-circle 0 0 2.5)

      (imprint_linear
        :imprint_part (sd-inq-curr-part)
        :imprint_wp (sd-inq-curr-wp)
        :imprint_distance 19.05
        :imprint_dir :-W
        :imprint_keep_wp :off ;on
      )

  (setq face (sd-call-cmds (get_selection :focus_type *sd-cylinder-seltype* :single_selection :curr_part_only :select punkt-auf-gewinde-flaeche)))

  (if face 
    (sd-define-thread
      face
      :nominal-diameter d-zylinder
      :pitch 0.8
      :thread-direction :cyl-axis
      :thread-type :OUTER
      :thread-unit :metric
      :thread-profile :M
      :include-chamfer t
    ) ;sd-define-thread
  )
)
(create-abs-sketch "/330/" "Sketch_2" 0 0 -3 1 0 0 0 1 0)
(create-sketch-circle 0 0 2.1971)
(create-revolve-base "/330/" "Sketch_2" 50 -20.073468714952 -3 -50 -20.073468714952 -3 17 :-W)
(create-abs-sketch "/330/" "Sketch_3" 0 -0.87711511416821 2.8689142678891 1 0 0 0 0.95630475596304 0.29237170472274)
(create-sketch-circle 0 0 2.1971)
(create-extrude-base "/330/" "Sketch_3" 47.8 :+W)
(create-abs-sketch "/330/" "Sketch_4" 0 -14.852482599915 48.580281602922 1 0 0 0 0.95630475596304 0.29237170472274)
(create-sketch-circle 0 0 2.1971)
(create-revolve-base "/330/" "Sketch_4" 5 -20.840002307475 46.749713122483 -5 -20.840002307475 46.749713122483 180 :-W)
(create-abs-sketch "/330/" "Sketch_5" 0 -26.827522015035 44.919144642043 1 0 0 0 -0.95630475596304 -0.29237170472274)
(create-sketch-circle 0 0 2.1971)
(create-extrude-base "/330/" "Sketch_5" 3.302 :+W)
  (defparameter *VOLUMEN* (oli::sd-call-cmds (get_vol_prop :for_part :part_asmb (oli::sd-inq-curr-part) :volume)))
  (defparameter *DENSITY* (/ *VOLUMEN* 1))
  (SET_PART_BASE_DENSITY :PARTS (oli::sd-inq-curr-part) :DENS *DENSITY*)

()  ;MISSING BEFORE_SAVE_PART_IN_DB

  (setq name-in-library (sd-set-library-attr (sd-inq-curr-part) "PSOL" "330103hook" ))
()  ;MISSING SAVE_PART_IN_DB

()  ;MISSING AFTER_SAVE_PART_IN_DB

    )	; SUB PART CREATE END
    )	; END IF
  (transform-document (sd-inq-curr-part) 0 0 0 1 0 0 0 1 0 0 22.578521462452 2.7265084016437 1 22.578521462452 2.7265084016437 0 23.534826218415 2.434136696921)
  )
  )



  (if (sd-pathname-to-obj "/201401")
    (defparameter *IsObjectNameExits* 1 "")
    (defparameter *IsObjectNameExits* 0 "")
  )
  (if (= *IsObjectNameExits* 1)
  (progn
    (defparameter *ObjectPartName* (sd-gen-obj-basename :part :prefix "201401") "201401")
    (CREATE_MULTIPLE_PA :share :owner *ObjectParentName* :source "/201401")
	(setq posVec (sd-vec-xform 0,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x0 (gpnt3d_x posVec))
			(y0 (gpnt3d_y posVec))
	        (z0 (gpnt3d_z posVec)))
	(setq posXVec (sd-vec-xform 1,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x01 (gpnt3d_x posXVec))
			(y01 (gpnt3d_y posXVec))
	        (z01 (gpnt3d_z posXVec)))
	(setq posYVec (sd-vec-xform 0,1,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x02 (gpnt3d_x posYVec))
			(y02 (gpnt3d_y posYVec))
	        (z02 (gpnt3d_z posYVec)))
	(transform-document (sd-inq-curr-part) x0 y0 z0 x01 y01 z01 x02 y02 z02 0 13.527418566064 -26.878315207177 0 13.235046861341 -27.83461996314 0 12.571113810101 -26.585943502454)
	)))
	)
  (progn
    (defparameter *ObjectPartName* "201401" "201401")
  	 (if (string= *ObjectParentName* "/")
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* *ObjectPartName*))
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* "/" *ObjectPartName*))
	 )
    (if (= (LoadObject (concatenate 'string "PSOL_" *ObjectPartName*) "LIBRARY_3D") 1)
    (progn	; SUB PART EXISTS, LOADED FROM MM
    (CHANGE_NAME_PA :PART_ASMB (sd-inq-obj-pathname (sd-inq-curr-part)) :NAME *ObjectPartName* )
    (CHANGE_PA_OWNER :NEW_OWNER *ObjectParentName* :PARTS_ASSEMBLIES (concatenate 'string "/" *ObjectPartName*))
    ); SUB PART EXISTS, LOADED FROM MM
    (progn	; SUB PART CREATE START
    (create_part :owner *ObjectParentName* :name *ObjectPartName*)
  (sd-attach-item-attribute (sd-inq-curr-part) "PARTsolutions-attribute" :attachment :instance :on-copy :copy :on-xform :maintain :values '("mident" "{%5C%5Cpartserver001.servicenet%5Cdplatte%5Ccadenas%5C23d-libs%5Cdestaco%5Cindustries%5Cmanual_clamps%5Caccessories%5Cnut_metric.prj}%2C167%20{VTYP=3D}%2C{NB=201401}%2C{LINA=201401}%2C{NN=602105-M%2C%20606104-M%2C%20624105-M}%2C{DATE=10.10.2007%2010:24:59}%2C{GEOMDATE=10.10.2007}%2C{VERSION=}%2C{LINEID=60}%2C{LINESUBID=-1}%2C{WBVAR=}%20%20{NB=201401}%2C{LINA=201401}%2C{KT=DUMMY}%2C{PN=201401}%2C{H=2.700}%2C{W=8.000}%2C{PNKDM1=5.000}%2C{PNKDM2=4.134}%2C{MD=M5}%2C{NUTSIZE=5}%2C{Z=0}%2C{VSB=0}"))
(if (string= (sd-license-free-module-active-p "ModelManager") t)
(progn
	(sd-define-db-attribute "LINATEST" :class-name "LIBRARY_3D" :keys '() :attachment :contents :allowed-owner-types :part-assembly)
	(sd-assign-db-attribute "LINATEST" (sd-inq-curr-part)  '())
)
()
)

    (set_part_base_color :parts *ObjectPathName* :color :rgb (gpnt3d 0.75294119119644 0.75294119119644 0.75294119119644))
    (set_part_inst_color :parts *ObjectPathName* :color :rgb (gpnt3d 0.75294119119644 0.75294119119644 0.75294119119644))
(create-abs-sketch "/330/" "Sketch_1" 0 0 0 1 0 0 0 1 0)
(create-sketch-line 0 4 0 2.5)
(create-sketch-line 0 2.5 0.433 2.067)
(create-sketch-line 0.433 2.067 2.267 2.067)
(create-sketch-line 2.267 2.067 2.7 2.5)
(create-sketch-line 2.7 2.5 2.7 4)
(create-sketch-line 2.7 4 2.4856406460551 4.8)
(create-sketch-line 2.4856406460551 4.8 0.2143593539449 4.8)
(create-sketch-line 0.2143593539449 4.8 0 4)
(create-revolve-base "/330/" "Sketch_1" 2.7 0 0 0 0 0 360 :-W)

(let ((face nil)
      (punkt-auf-gewinde-flaeche (gpnt3d 1.35 -2.067 0))
      (d-zylinder 4.134)
     )


      (create-abs-sketch "/" "skizze_imprint_1" 0 0 0 0 1 0 0 0 -1)
      (create-sketch-circle 0 0 2.067)

      (imprint_linear
        :imprint_part (sd-inq-curr-part)
        :imprint_wp (sd-inq-curr-wp)
        :imprint_distance 2.7
        :imprint_dir :-W
        :imprint_keep_wp :off ;on
      )

  (setq face (sd-call-cmds (get_selection :focus_type *sd-cylinder-seltype* :single_selection :curr_part_only :select punkt-auf-gewinde-flaeche)))

  (if face 
    (sd-define-thread
      face
      :nominal-diameter d-zylinder
      :pitch 0.8
      :thread-direction :cyl-axis
      :thread-type :INNER
      :thread-unit :metric
      :thread-profile :M
      :include-chamfer t
    ) ;sd-define-thread
  )
)
(create-abs-sketch "/330/" "Sketch_2" 0 0 0 0 0 -1 0 1 0)
(create-sketch-line -8 8 -8 -8)
(create-sketch-line -8 -8 8 -8)
(create-sketch-line 8 -8 8 8)
(create-sketch-line 8 8 -8 8)
(create-sketch-line -4 2.3094010767585 -4 -2.3094010767585)
(create-sketch-line -4 -2.3094010767585 0 -4.618802153517)
(create-sketch-line 0 -4.618802153517 4 -2.3094010767585)
(create-sketch-line 4 -2.3094010767585 4 2.3094010767585)
(create-sketch-line 4 2.3094010767585 0 4.618802153517)
(create-sketch-line 0 4.618802153517 -4 2.3094010767585)
(create-extrude-cut "/330/" "Sketch_2" 2.7 :+W)
  (defparameter *VOLUMEN* (oli::sd-call-cmds (get_vol_prop :for_part :part_asmb (oli::sd-inq-curr-part) :volume)))
  (defparameter *DENSITY* (/ *VOLUMEN* 1))
  (SET_PART_BASE_DENSITY :PARTS (oli::sd-inq-curr-part) :DENS *DENSITY*)

()  ;MISSING BEFORE_SAVE_PART_IN_DB

  (setq name-in-library (sd-set-library-attr (sd-inq-curr-part) "PSOL" "201401" ))
()  ;MISSING SAVE_PART_IN_DB

()  ;MISSING AFTER_SAVE_PART_IN_DB

    )	; SUB PART CREATE END
    )	; END IF
  (transform-document (sd-inq-curr-part) 0 0 0 1 0 0 0 1 0 0 13.527418566064 -26.878315207177 0 13.235046861341 -27.83461996314 0 12.571113810101 -26.585943502454)
  )
  )
  (defparameter *ObjectPartName* "201401")
  (createSharedPart 0 16.619328283867 -16.765134210584 0 16.326956579144 -17.721438966547 0 15.663023527904 -16.472762505861)



  (if (sd-pathname-to-obj "/330_ZB1lever")
    (defparameter *IsObjectNameExits* 1 "")
    (defparameter *IsObjectNameExits* 0 "")
  )
  (if (= *IsObjectNameExits* 1)
  (progn
    (defparameter *ObjectPartName* (sd-gen-obj-basename :part :prefix "330_ZB1lever") "330_ZB1lever")
    (CREATE_MULTIPLE_PA :share :owner *ObjectParentName* :source "/330_ZB1lever")
	(setq posVec (sd-vec-xform 0,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x0 (gpnt3d_x posVec))
			(y0 (gpnt3d_y posVec))
	        (z0 (gpnt3d_z posVec)))
	(setq posXVec (sd-vec-xform 1,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x01 (gpnt3d_x posXVec))
			(y01 (gpnt3d_y posXVec))
	        (z01 (gpnt3d_z posXVec)))
	(setq posYVec (sd-vec-xform 0,1,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x02 (gpnt3d_x posYVec))
			(y02 (gpnt3d_y posYVec))
	        (z02 (gpnt3d_z posYVec)))
	(transform-document (sd-inq-curr-part) x0 y0 z0 x01 y01 z01 x02 y02 z02 0 10.971896520824 -17.861908791693 0 11.264268225546 -16.90560403573 0 11.928201276787 -18.154280496415)
	)))
	)
  (progn
    (defparameter *ObjectPartName* "330_ZB1lever" "330_ZB1lever")
  	 (if (string= *ObjectParentName* "/")
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* *ObjectPartName*))
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* "/" *ObjectPartName*))
	 )
    (if (= (LoadObject (concatenate 'string "PSOL_" *ObjectPartName*) "LIBRARY_3D") 1)
    (progn	; SUB PART EXISTS, LOADED FROM MM
    (CHANGE_NAME_PA :PART_ASMB (sd-inq-obj-pathname (sd-inq-curr-part)) :NAME *ObjectPartName* )
    (CHANGE_PA_OWNER :NEW_OWNER *ObjectParentName* :PARTS_ASSEMBLIES (concatenate 'string "/" *ObjectPartName*))
    ); SUB PART EXISTS, LOADED FROM MM
    (progn	; SUB PART CREATE START
    (create_part :owner *ObjectParentName* :name *ObjectPartName*)
  (sd-attach-item-attribute (sd-inq-curr-part) "PARTsolutions-attribute" :attachment :instance :on-copy :copy :on-xform :maintain :values '("mident" "{%5C%5Cpartserver001.servicenet%5Cdplatte%5Ccadenas%5C23d-libs%5Cdestaco%5Cindustries%5Cmanual_clamps%5Clatch_clamps%5Cmidle_part%5C330_lever.prj}%2C164%20{VTYP=3D}%2C{NB=330-ZB1lever}%2C{LINA=330-ZB1lever}%2C{NN=330-ZB1_lever}%2C{DATE=11.05.2006%2008:23:35}%2C{GEOMDATE=11.05.2006}%2C{VERSION=}%2C{LINEID=10}%2C{LINESUBID=-1}%2C{WBVAR=}%20%20{NB=330-ZB1lever}%2C{LINA=330-ZB1lever}%2C{KT=DUMMY}%2C{MN=330-ZB1}%2C{A=0.0600}%2C{B=0.2400}%2C{C=0.3900}%2C{D=0.5100}%2C{E=0.4700}%2C{F=0.0800}%2C{G=140.0000}%2C{H=0.2200}%2C{J=0.4700}%2C{K=0.2000}%2C{L=0.2400}%2C{M=0.1600}%2C{R=0.2400}"))
(if (string= (sd-license-free-module-active-p "ModelManager") t)
(progn
	(sd-define-db-attribute "LINATEST" :class-name "LIBRARY_3D" :keys '() :attachment :contents :allowed-owner-types :part-assembly)
	(sd-assign-db-attribute "LINATEST" (sd-inq-curr-part)  '())
)
()
)

    (set_part_base_color :parts *ObjectPathName* :color :rgb (gpnt3d 0.75294119119644 0.75294119119644 0.75294119119644))
    (set_part_inst_color :parts *ObjectPathName* :color :rgb (gpnt3d 0.75294119119644 0.75294119119644 0.75294119119644))
(create-abs-sketch "/330/" "Sketch_1" 0 0 -5.969 1 0 0 0 1 0)
(create-sketch-line -10.005748983202 27.940558141914 -9.2026600191782 18.761209279352)
(create-sketch-arc-3p -9.2026600191782 18.761209279352 -8.8830221634663 17.568304561813 -8.1746633866633 16.556663386663)
(create-sketch-line -8.1746633866633 16.556663386663 -2.1191590206289 10.501159020629)
(create-sketch-arc-3p -2.1191590206289 10.501159020629 -1.6786767899371 9.8419307758237 -1.524 9.0643180412579)
(create-sketch-line -1.524 9.0643180412579 -1.524 0)
(create-sketch-line -1.524 0 0 0)
(create-sketch-line 0 0 0 9.0643180412579)
(create-sketch-arc-3p 0 9.0643180412579 -0.27068438238986 10.425140326748 -1.0415282861006 11.578789755157)
(create-sketch-line -1.0415282861006 11.578789755157 -7.097032652135 17.634294121192)
(create-sketch-arc-3p -7.097032652135 17.634294121192 -7.5018090960224 18.212374792706 -7.6844592992864 18.894034631299)
(create-sketch-line -7.6844592992864 18.894034631299 -8.4875482633102 28.073383493862)
(create-sketch-line -8.4875482633102 28.073383493862 -10.005748983202 27.940558141914)
(create-extrude-base "/330/" "Sketch_1" 11.938 :+W)
(create-abs-sketch "/330/" "Sketch_2" -9.3462986574968 -0.81769517845853 0 0 0 -1 -0.087155742747658 0.99619469809175 0)
(create-sketch-arc-3p 6.969 25.67 4.5913081227119e-014 32.766 -6.969 25.67)
(create-sketch-line -6.969 25.67 -6.969 19.812)
(create-sketch-line -6.969 19.812 6.969 19.812)
(create-sketch-line 6.969 19.812 6.969 25.67)
(create-extrude-base "/330/" "Sketch_2" 5.048 :+W)
(create-abs-sketch "/330/" "Sketch_3" -2.524 0 0 0 0 -1 0 1 0)
(create-sketch-circle 0 5.08 2.794)
(create-extrude-cut "/330/" "Sketch_3" 5.048 :+W)
  (defparameter *VOLUMEN* (oli::sd-call-cmds (get_vol_prop :for_part :part_asmb (oli::sd-inq-curr-part) :volume)))
  (defparameter *DENSITY* (/ *VOLUMEN* 1))
  (SET_PART_BASE_DENSITY :PARTS (oli::sd-inq-curr-part) :DENS *DENSITY*)

()  ;MISSING BEFORE_SAVE_PART_IN_DB

  (setq name-in-library (sd-set-library-attr (sd-inq-curr-part) "PSOL" "330_ZB1lever" ))
()  ;MISSING SAVE_PART_IN_DB

()  ;MISSING AFTER_SAVE_PART_IN_DB

    )	; SUB PART CREATE END
    )	; END IF
  (transform-document (sd-inq-curr-part) 0 0 0 1 0 0 0 1 0 0 10.971896520824 -17.861908791693 0 11.264268225546 -16.90560403573 0 11.928201276787 -18.154280496415)
  )
  )



  (if (sd-pathname-to-obj "/202302")
    (defparameter *IsObjectNameExits* 1 "")
    (defparameter *IsObjectNameExits* 0 "")
  )
  (if (= *IsObjectNameExits* 1)
  (progn
    (defparameter *ObjectPartName* (sd-gen-obj-basename :part :prefix "202302") "202302")
    (CREATE_MULTIPLE_PA :share :owner *ObjectParentName* :source "/202302")
	(setq posVec (sd-vec-xform 0,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x0 (gpnt3d_x posVec))
			(y0 (gpnt3d_y posVec))
	        (z0 (gpnt3d_z posVec)))
	(setq posXVec (sd-vec-xform 1,0,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x01 (gpnt3d_x posXVec))
			(y01 (gpnt3d_y posXVec))
	        (z01 (gpnt3d_z posXVec)))
	(setq posYVec (sd-vec-xform 0,1,0 :source-space (sd-inq-curr-part) :dest-space :global))
		(let ((x02 (gpnt3d_x posYVec))
			(y02 (gpnt3d_y posYVec))
	        (z02 (gpnt3d_z posYVec)))
	(transform-document (sd-inq-curr-part) x0 y0 z0 x01 y01 z01 x02 y02 z02 0 14.224 -43.942 1 14.224 -43.942 0 13.224 -43.942)
	)))
	)
  (progn
    (defparameter *ObjectPartName* "202302" "202302")
  	 (if (string= *ObjectParentName* "/")
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* *ObjectPartName*))
      (defparameter *ObjectPathName* (concatenate 'string *ObjectParentName* "/" *ObjectPartName*))
	 )
    (if (= (LoadObject (concatenate 'string "PSOL_" *ObjectPartName*) "LIBRARY_3D") 1)
    (progn	; SUB PART EXISTS, LOADED FROM MM
    (CHANGE_NAME_PA :PART_ASMB (sd-inq-obj-pathname (sd-inq-curr-part)) :NAME *ObjectPartName* )
    (CHANGE_PA_OWNER :NEW_OWNER *ObjectParentName* :PARTS_ASSEMBLIES (concatenate 'string "/" *ObjectPartName*))
    ); SUB PART EXISTS, LOADED FROM MM
    (progn	; SUB PART CREATE START
    (create_part :owner *ObjectParentName* :name *ObjectPartName*)
  (sd-attach-item-attribute (sd-inq-curr-part) "PARTsolutions-attribute" :attachment :instance :on-copy :copy :on-xform :maintain :values '("mident" "{%5C%5Cpartserver001.servicenet%5Cdplatte%5Ccadenas%5C23d-libs%5Cdestaco%5Cindustries%5Cmanual_clamps%5Cvertical_clamps%5Cstandard%5Chandle%5C202_handle_1.prj}%2C151%20{VTYP=3D}%2C{NB=202302}%2C{LINA=202302}%2C{NN=202%20Handle%201}%2C{DATE=08.06.2006%2009:35:29}%2C{GEOMDATE=08.06.2006}%2C{VERSION=}%2C{LINEID=10}%2C{LINESUBID=-1}%2C{WBVAR=}%20%20{NB=202302}%2C{LINA=202302}%2C{KT=DUMMY}%2C{SERIES=202}%2C{PN=202302}%2C{L1=1.3500}%2C{L2=1.7600}%2C{W1=45.0000}%2C{T1=0.1000}%2C{D1=0.5000}%2C{R1=0.1800}%2C{R2=0.4200}%2C{B1=0.2340}%2C{H1=0.3700}"))
(if (string= (sd-license-free-module-active-p "ModelManager") t)
(progn
	(sd-define-db-attribute "LINATEST" :class-name "LIBRARY_3D" :keys '() :attachment :contents :allowed-owner-types :part-assembly)
	(sd-assign-db-attribute "LINATEST" (sd-inq-curr-part)  '())
)
()
)

    (set_part_base_color :parts *ObjectPathName* :color :rgb (gpnt3d 1 0 0))
    (set_part_inst_color :parts *ObjectPathName* :color :rgb (gpnt3d 1 0 0))
(create-abs-sketch "/330/" "Sketch_1" 0 0 0 0 0 -1 0 1 0)
(create-sketch-arc-3p -44.704 0 -41.078454825397 8.0131176225143 -32.666119604003 10.579681077455)
(create-sketch-line -32.666119604003 10.579681077455 0 6.35)
(create-sketch-line 0 6.35 0 0)
(create-sketch-line 0 0 -44.704 0)
(create-revolve-base "/330/" "Sketch_1" 0 0 0 0 0 44.704 360 :+W)
(create-abs-sketch "/330/" "Sketch_2" 0 -6.35 0 1 0 0 0 0 -1)
(create-sketch-line 3.81 0 7.35 -3.54)
(create-sketch-line 7.35 -3.54 7.35 0)
(create-sketch-line 7.35 0 3.81 0)
(create-extrude-cut "/330/" "Sketch_2" 12.7 :+W)
(create-abs-sketch "/330/" "Sketch_3" 0 -6.35 0 1 0 0 0 0 -1)
(create-sketch-line -7.35 0 -7.35 -3.54)
(create-sketch-line -7.35 -3.54 -3.81 0)
(create-sketch-line -3.81 0 -7.35 0)
(create-extrude-cut "/330/" "Sketch_3" 12.7 :+W)
(create-abs-sketch "/330/" "Sketch_4" -2.9718 0 0 0 0 -1 0 1 0)
(create-sketch-arc-3p -34.29 4.699 -38.989 5.7544252566114e-016 -34.29 -4.699)
(create-sketch-line -34.29 -4.699 0 -4.699)
(create-sketch-line 0 -4.699 0 4.699)
(create-sketch-line 0 4.699 -34.29 4.699)
(create-extrude-cut "/330/" "Sketch_4" 5.9436 :+W)
  (defparameter *VOLUMEN* (oli::sd-call-cmds (get_vol_prop :for_part :part_asmb (oli::sd-inq-curr-part) :volume)))
  (defparameter *DENSITY* (/ *VOLUMEN* 1))
  (SET_PART_BASE_DENSITY :PARTS (oli::sd-inq-curr-part) :DENS *DENSITY*)

()  ;MISSING BEFORE_SAVE_PART_IN_DB

  (setq name-in-library (sd-set-library-attr (sd-inq-curr-part) "PSOL" "202302" ))
()  ;MISSING SAVE_PART_IN_DB

()  ;MISSING AFTER_SAVE_PART_IN_DB

    )	; SUB PART CREATE END
    )	; END IF
  (transform-document (sd-inq-curr-part) 0 0 0 1 0 0 0 1 0 0 14.224 -43.942 1 14.224 -43.942 0 13.224 -43.942)
  )
  )
()  ;MISSING BEFORE_SAVE_PART_IN_DB

  (if (sd-inq-parent-obj (sd-inq-curr-part))
  (progn
    (setq name-in-library (sd-set-library-attr (sd-inq-parent-obj(sd-inq-curr-part)) "PSOL" "330" ))
()  ;MISSING SAVE_PART_IN_DB
)
  (progn
    (setq name-in-library (sd-set-library-attr (sd-inq-curr-part) "PSOL" "330" ))
()  ;MISSING SAVE_PART_IN_DB
)
)

()  ;MISSING AFTER_SAVE_PART_IN_DB


) ;GenerateObject End

(defun createObject()
  (if (sd-pathname-to-obj "/330")
  (progn
    (defparameter *ObjectAsmName* (sd-gen-obj-basename :part :prefix "330") "330")
    (CREATE_MULTIPLE_PA :share :owner "/" :source "/330" :keep_attr :on))
  (progn
    (defparameter *ObjectAsmName* "330" "330")
    (create_assembly :owner "/" :name *ObjectAsmName*)
    (GenerateObject)
    (sd-attach-item-attribute (sd-pathname-to-obj (concatenate 'string "/" *ObjectAsmName*)) "PARTsolutions-attribute" :attachment :instance :on-copy :copy :on-xform :maintain :values '("mident" "{%5C%5Cpartserver001.servicenet%5Cdplatte%5Ccadenas%5C23d-libs%5Cdestaco%5Cindustries%5Cmanual_clamps%5Clatch_clamps%5Cstandard_hook%5C330_asmtab.prj}%2C160%20{VTYP=3D}%2C{STYP=ASSTAB}%2C{NB=330}%2C{LINA=330}%2C{NN=330%20Series}%2C{DATE=03.08.2006%2009:12:49}%2C{GEOMDATE=03.08.2006}%2C{VERSION=}%2C{LINEID=10}%2C{LINESUBID=-1}%2C{WBVAR=LPA}%20%20{NB=330}%2C{LINA=330}%2C{KT=DUMMY}%2C{PN=330}%2C{MN=330}%2C{EDP=53300}%2C{HC=200}%2C{W=0.24}%2C{DM=2.31}%2C{T=M5x0.8}%2C{OHL=3.78}%2C{A=22.9}%2C{AIN=0.90}%2C{B=143.3}%2C{BIN=5.64}%2C{C=14.2}%2C{CIN=0.56}%2C{D=12.7}%2C{DIN=0.50}%2C{E=31.2}%2C{EIN=1.23}%2C{F=25.4}%2C{FIN=1.00}%2C{G=42.9}%2C{GIN=1.69}%2C{J=5.6}%2C{JIN=0.22}%2C{K=7.9}%2C{KIN=0.31}%2C{N=4.8}%2C{NIN=0.19}%2C{QMIN=40.6}%2C{QMININ=1.60}%2C{QMAX=47.0}%2C{QMAXIN=1.85}%2C{A1=0.7200}%2C{A2=0.4840}%2C{L1=1.0000}%2C{L2=0.6250}%2C{L3=0.5000}%2C{W1=0.2500}%2C{T1=0.1220}%2C{R1=0.1900}%2C{R2=0.0600}%2C{D1=0.2190}%2C{D2=0.1270}%2C{D3=0.3100}%2C{H1=0.7500}%2C{H2=0.5600}%2C{MNH=330103}%2C{PPATH=330_asmtpl.prj}%2C{LPA=}%2C{LPAA=}"))

(if (string= (sd-license-free-module-active-p "ModelManager") t)
(progn
	(sd-define-db-attribute "LINATEST" :class-name "LIBRARY_3D" :keys '() :attachment :contents :allowed-owner-types :part-assembly)
	(sd-assign-db-attribute "LINATEST" (sd-inq-curr-part)  '())
)
()
)

    )
  )

)

(defun BeforeLoadObjectFromDB()
)

(defun LoadObjectFromDB()
(progn
(let ((dbtype (list "LIBRARY_3D" "LIBRARY_3D"))
    (dbname (list "PSOL_330" "PSOL_330"))
    (elid nil)
    )

	(dotimes (i 2)
    	(setq tempName (nth i dbname))
    	(setq tempType (nth i dbtype))
    	(setq elid (oli::sd-db-element-exists :identifier tempName :database-type tempType))
    	(when elid
   			(progn
    			(oli::sd-db-element-load  :database-elid elid)
    	    	(return)
    		)
    	)
	)
	(if (string= elid NIL)
		(createObject)
		()
	)
)
)
)

(defun AfterLoadObjectFromDB()
)


(defun insertObject()
  (if (sd-pathname-to-obj "/330")
  (progn
    (defparameter *ObjectAsmName* (sd-gen-obj-basename :part :prefix "330") "330")
    (CREATE_MULTIPLE_PA :share :owner "/" :source "/330" :keep_attr :on))
  (progn
    (defparameter *ObjectAsmName* "330" "330")
    (LoadObjectFromDB))
  )
)

(sd-call-cmds (insertObject))