Jakob

2 ώρες πριν, thomas said:

Πολύ καλό !!!
Θα βοηθούσε να κάνει 2 ερωτήσεις για τα βασικά layers και να φτιάχνει βάσει των input το dxf.
Πχ επιλέξτε το όριο της ιδιοκτησίας και να δημιουργεί το topo_prop , επιλέξτε τα υλοποιημένα όρια ... και να φτιάχνει polyline με impl και unimpl . 

Αλλά ας μην είμαστε πλεονέκτες 😁
 

Ευχαριστώ για την απάντηση.

Μπορείς να μου ανεβάσεις ένα dwg για να καταλάβω καλύτερα; εννοείς να υπάρχουν ήδη τα polyline που περιγράφουν το συνολικό περίγραμμα (topo_prop) και αντίστοιχα τα όρια, να τα επιλέγει ο χρήστης, να φτιάχνει layer και να βάζει ένα αντίγραφο των polyline αυτών στα layer για το ΚΗΔ;

Edit: Θα μπορούσε να γίνεται και με επιλογή σημείων, αν μου γράψετε πως το σκέφτεστε μπορώ να κάνω μια δοκιμή να δω τι θα βγει.

On 30/6/2020 at 5:56 ΜΜ, panosf said:

Γεια σου , σε παλιότερο autocad (2011) που το δοκίμασα τρέχει κανονικά ,όμως τα ελληνικά τα εμφανίζει κινέζικα υπάρχει κάποια λύση ? Ευχαριστώ!

 

Καλημέρα, 

έχω φτιάξει αυτό το μικρό προγραμματάκι που κάνει ό,τι κείμενο υπάρχει στο dwg σε Arial γραμματοσειρά. Μπορείς να τη χρησιμοποιήσεις αν σε βολέψει.

(defun c:tstyle ( / lss n al k tss )
(vl-load-com)

;== create ARIAL textstyle (overwrites existing) ==;
(entmakex
'(
   (0 . "STYLE")
   (100 . "AcDbSymbolTableRecord")
   (100 . "AcDbTextStyleTableRecord")
   (2 . "ARIAL")
   (70 . 0)
   (40 . 0.0);<- text height not defined
   (41 . 1.0)
   (50 . 0.0)
   (71 . 0)
   (42 . 2.0)
   (3 . "arial.ttf")
   (4 . "")
 )
)
;;==;;

  (setq lss (ssget "x" '((0 . "TEXT,MTEXT")) ))
  (foreach k (nmlist lss)
     
(vla-put-stylename (vlax-ename->vla-object k) "ARIAL")
    )    ;foreach

  (command "_.regen")

  )    ;defun tstyle

(defun nmlist ( lss / n yeash )
(setq n 0)
(repeat (sslength lss)

  (setq yeash (cons  (ssname lss n) yeash)) 
   (setq n (+ 1 n))
  )

yeash
)         ;defun nmlist