Dikth.lsp Διαστασιολόγηση

Ευχαριστώ !

Ευχαριστώ πολύ!!

FILE MOU H DIEY8YNSH TOU KEIMENOU MOU VGAINAI ALLOU GIA ALLOU.. MHPWS KSEREIS TI MPORW NA KANW?

ΠΟΛΥ ΚΑΛΟ!

ΟΤΑΝ ΤΟΠΟΘΕΤΕΙ ΤΗΝ ΔΙΑΣΤΑΣΗ ΥΠΑΡΧΕΙ ΠΡΟΒΛΗΜΑ ΔΙΟΤΙ ΔΕΝ ΕΙΝΑΙ ΠΑΡΑΛΛΗΛΗ Η ΤΟΠΟΘΕΤΗΣΗ ΤΗΣ ΔΙΑΣΤΑΣΗΣ ΜΕ ΤΗΝ ΠΛΕΥΡΑ??? ΕΧΕΙ ΚΑΝΕΙΣ ΤΟ ΙΔΙΟ ΠΡΟΒΛΗΜΑ???

FILE MOU H DIEY8YNSH TOU KEIMENOU MOU VGAINAI ALLOU GIA ALLOU.. MHPWS KSEREIS TI MPORW NA KANW?

ΚΑΙ ΓΩ ΤΟ ΙΔΙΟ

ευχαριστώ

Όλο το lsp είναι το παρακάτω-Τυχαία καθώς δεν γνωρίζω καν αγγλικά  (πήγα κοντά στο τέλος σ αυτό :  (setvar "osmode" 1)

το έκανα (setvar "osmode" 0)   

και οι διαστάσεις εκτυπώνονται πλέον παράλληλα- Οπότε κάντε και εσείς το ίδιο  

;DIKTH.LSP       ¨ζ¨££ › ©«© ¦Άζ© ΅«£«¦Ά¦ε¦¬
(defun newerr (msg)
(if (/= msg "Function cancelled")(princ msg)
);endif
(setq *error* olderr)
(princ)
);close defun
(Defun C:DIKTH (/ svr pta ptt apst ptl ht fac)
 (setq olderr *error* *error* newerr)
 (setq svr(getvar "osmode"))
 (setvar "cmdecho" 0)
 (setvar "dimzin" 0)
 (setq ht(* (getreal  "\nEnter the drawing scale (100,200,500,etc) : ") 0.002))
 (setvar "osmode" 1)
(while (setq pta(getpoint "\nPick first point of the line : "))
 (setvar "osmode" 1)
 (princ)
 (setq ptt(getpoint "\nPick other point of the line : "))
 (setq apst (rtos(distance pta ptt) 2 2))
 (setvar "osmode" 512)
 (princ)
 (setq ptl(getpoint "\nPick dimension text location : ")) 
 (setvar "osmode" 0)
 (setq fac(- (cadr pta) (cadr ptt)))
 (if(< fac 0)(setq fac -1)(setq fac 1)
 );endif                 [                                                               ]    [                                           ]        
 (command "text" "j" "c" (list (+ (car ptl) (* (/ ht 2.0) fac)) (+ (cadr ptl) (/ ht 2.0))) ht (+ 100 (* (/ (* 400 (angle ptl ptt)) (* 2 pi)) -1)) apst)
 (setvar "osmode" 0)
 (princ apst)
);endwile 
 (setvar "osmode" svr)
 (command "cmdecho" 1)
 (setq *error* olderr)
 (princ)
);close defun