(in-package  :SW)
(use-package :OLI)


(defun SW-sd-delete-3d-anno-face (FLAECHE)
(dolist (Einzelanno (sd-inq-obj-3d-annotations (sd-inq-parent-obj FLAECHE)))	
(if (equal (sd-inq-obj-sysid FLAECHE) (sd-inq-obj-sysid (first (sd-inq-3d-annotation-reference Einzelanno :refs))))
	(sd-call-cmds (DOC3D::doc3d_delete_anno Einzelanno)) ;(DISPLAY "Fläche entspricht der gewählten Fläche")
) ; endif)
); dolist
);defun SW-sd-delete-3d-annotation-face