;http://osd.cad.de (use-package :OLI) (sd-defdialog 'hilfsbolzen_erzeugen :dialog-title "3D Hilfsbolzen" :help-action '(sd-display-message "Der Hilfsbolzen dient als Hilfe bei der Positionierung von kompliziert geformten Bauteilen. Zum Beispiel zur Ausrichtung von Gussteilen.") :variables '( (NULLPUNKT :title "Bolzen im Nullpunkt" :toggle-type :wide-toggle :push-action (nullpunkt)) (URSPRUNG :value-type :point-3d :title "Ursprung") (RICHTUNG :value-type :measure-direction :title "Richtung") ) :ok-action '(hilfsbolzen) :local-functions '( (hilfsbolzen () (sd-call-cmds (create_workplane :new :pt_dir :origin URSPRUNG :normal RICHTUNG)) (sd-call-cmds (c_line_inf :horizontal 0)) (sd-call-cmds (c_line_inf :vertical 0)) (sd-call-cmds (c_circle :cen_dia 0,0 30)) (sd-call-cmds (geometry_mode :real)) (sd-call-cmds (line :vertical 0,0 10)) (sd-call-cmds (line :horizontal 0,0 10)) (sd-call-cmds (arc :3_pos 0,10 10,0 -10,0)) (sd-call-cmds (extrude :part "/Hilfsbolzen" :distance 50 :keep_profile :no)) (sd-call-cmds (part_prop "/Hilfsbolzen" :base_density 0.0001 :base_color 10276015 :done :base_trans :semi)) ) (nullpunkt () (sd-call-cmds (create_workplane :new :pt_dir :origin 0,0,0 :normal 0,0,1)) (sd-call-cmds (c_line_inf :horizontal 0)) (sd-call-cmds (c_line_inf :vertical 0)) (sd-call-cmds (c_circle :cen_dia 0,0 30)) (sd-call-cmds (geometry_mode :real)) (sd-call-cmds (line :vertical 0,0 10)) (sd-call-cmds (line :horizontal 0,0 10)) (sd-call-cmds (arc :3_pos 0,10 10,0 -10,0)) (sd-call-cmds (extrude :part "/Hilfsbolzen" :distance 50 :keep_profile :no)) (sd-call-cmds (part_prop "/Hilfsbolzen" :base_density 0.0001 :base_color 9414861 :done :base_trans :semi)) ) ))