Wolfgang
10-17-2005, 10:26 AM
well.. just a try.. but the single quotes (forward-only) are mixing up the PHP highlighter.
(sd-defdialog 'thread_extension
:dialog-title (sd-multi-lang-string "Thread Define" :german "Gewinde Def.")
:after-initialization
'(progn
(trace oli::sd-define-thread
oli::sd-inq-thread
oli::sd-destroy-thread
)
(setf profile nil)
)
:mutual-exclusion '( (nomi-dia nomi-dia-inch) (pitch TPI))
:variables
`(
(t-feedbacks :initial-value nil) ;; all feedbacks shown
(result :initial-value nil) ;; saved return value of sd-*-thread functions
(props :initial-value nil) ;; cylinder face properties
(a-cyl-face
:selection *sd-cylinder-seltype*
:title (sd-multi-lang-string "Cyl Face" :german "Zyl. Flaeche")
:check-function
#'(lambda (this-face)
(if (sd-cylinder-p (SD-INQ-GEO-PROPS this-face))
:ok
(values :error
(sd-multi-lang-string
"No cylindrical face selected. Thread Information is only valid for a cylindrical face."
:german "Keine Zylinderflaeche gewaehlt. Gewindedefinition nur bei zylindrischen Flaechen moeglich.")
)))
:after-input
(let (center axis start radius)
(dolist (a-fb t-feedbacks) (sd-end-point-feedback a-fb)) ;; remove old feedback
(setf props (sd-inq-geo-props a-cyl-face :dest-space :global))
(setf center (sd-cylinder-center props)) ;; really the center , also in axis direction!
(setf axis (sd-cylinder-axis-dir props))
(setf start (sd-cylinder-start-dir props)) ;; this is for rotaion,
(setf radius (sd-cylinder-radius props))
(push ;; center of cylinder
(sd-start-direction-feedback
:point center :direction axis :disc t :color 0,0,1)
t-feedbacks)
(sd-set-variable-status 't-define :enable t)
) ;; end after-input
) ;; end a-cylface
;; -------------------------------------------------------------------
;; direct testing:
:optional
:presets
I tried the HTML vb_code, too. But this made more problems.
What's the way such a higlighter is defined in our forum software? I'm a little bit familiar with generating highlighter files for different (freeware) editors. There does my interest come from..
(sd-defdialog 'thread_extension
:dialog-title (sd-multi-lang-string "Thread Define" :german "Gewinde Def.")
:after-initialization
'(progn
(trace oli::sd-define-thread
oli::sd-inq-thread
oli::sd-destroy-thread
)
(setf profile nil)
)
:mutual-exclusion '( (nomi-dia nomi-dia-inch) (pitch TPI))
:variables
`(
(t-feedbacks :initial-value nil) ;; all feedbacks shown
(result :initial-value nil) ;; saved return value of sd-*-thread functions
(props :initial-value nil) ;; cylinder face properties
(a-cyl-face
:selection *sd-cylinder-seltype*
:title (sd-multi-lang-string "Cyl Face" :german "Zyl. Flaeche")
:check-function
#'(lambda (this-face)
(if (sd-cylinder-p (SD-INQ-GEO-PROPS this-face))
:ok
(values :error
(sd-multi-lang-string
"No cylindrical face selected. Thread Information is only valid for a cylindrical face."
:german "Keine Zylinderflaeche gewaehlt. Gewindedefinition nur bei zylindrischen Flaechen moeglich.")
)))
:after-input
(let (center axis start radius)
(dolist (a-fb t-feedbacks) (sd-end-point-feedback a-fb)) ;; remove old feedback
(setf props (sd-inq-geo-props a-cyl-face :dest-space :global))
(setf center (sd-cylinder-center props)) ;; really the center , also in axis direction!
(setf axis (sd-cylinder-axis-dir props))
(setf start (sd-cylinder-start-dir props)) ;; this is for rotaion,
(setf radius (sd-cylinder-radius props))
(push ;; center of cylinder
(sd-start-direction-feedback
:point center :direction axis :disc t :color 0,0,1)
t-feedbacks)
(sd-set-variable-status 't-define :enable t)
) ;; end after-input
) ;; end a-cylface
;; -------------------------------------------------------------------
;; direct testing:
:optional
:presets
I tried the HTML vb_code, too. But this made more problems.
What's the way such a higlighter is defined in our forum software? I'm a little bit familiar with generating highlighter files for different (freeware) editors. There does my interest come from..