I wasn't able to work on the Lisp-project for quite a while now. Vocational college and more urgent tasks kept me occupied.
Those, who I've annoyed here for a while know my issue: I'm using LISP and BricsCAD to read the drawing information from a .dwg file and write it into a .txt.
After some testing collegues of mine noticed, basicly everything within blocks is displaced. That came out so late, because they don't necessarily have to look directly into the .txt. The Delphi-side of the Interface shows grafiks in open gl.
Basicly every line (and propably every other entity as well) is displaced by a distance, I assume to come from a block. I'm actually puzzled.
Yet I do suspect a code construct I use to be the cause of this:
I actually use it to ensure a WCS-Like UCS is current. I would rather use the WCS itself but I don't know how to set that active.
Now when I read a line for example I do it like this:
(defun getLinData
( ent
/ entAPt entEPt
) ;;;Linien )
;;; 0 . Entitätentyp
;;; 1 . Layername
;;; 2;3;4 . Startpunkt
;;; 5;6;7 . Endpunkt
;;; 8 . Länge
(princ) ;;; max list index 8 ) ;;; ende getLinData
When I print out the entget of this to the command console, everything looks fine, but after the export: scrambled eggs...