CADsite forum

Tekenprogramma industriële elektriciteit Autoelec onder autocad
Gratis tekenprogramma voor huisinstallaties onder autocad
http://www.autoelec.be

Is het mogelijk om in autocad LT via visual basic een blok via een menu in te voegen.

bvb insert bloknaam invoegpunt 1 1 0

Volgend programma vraagt naar de bloknaam waarna je hem kan invoegen
Als je de visual lisp editor opstart kan je de code bewaren onder in.lsp
Als je dan met appload in de contents de file laad dan heb je het commando altijd beschikbaar.
Als je vervolgens bij options file search path met add en browse de directory waar je blocks staan selecteerd dan werkt alles perfect

(defun c:in (/ blok att)
  (setq blok (getstring "\n Geef bloknaam:"))
  (setq att (getvar "attreq"))
  (setvar "attreq" 0)
  (command "insert" blok pause "1" "1" "0")
  (setvar "attreq" att)

);]

Ik wil vanuit autolisp een waarde van een string bvb "a1" wegschijven naar een excelbestand.
Kan iemand de juiste syntax of programma hiervoor geven?

je kan die gegevens wegschrijven in een tekstbestand met spatie tussen de waarde en daarna terug uitlezen.
volgende routine kan je daar bij helpen
;;;routine voor afschijden waarden met een scheidingsteken van een string
;;; str is de string tel is de positie van de waarde in de rij
;;; sintax = string positie afscheidingskarakter
;;;bvb (setq str (strafsch "ab,cd,de" 2 ",")) geeft "cd"
(defun strafsch (strl tell sortl / str1 pos tel1)
(setq tel1 1 pos 1 tel1 0)
(repeat tell
;;Bepalen positie spatie met tel1 pos is de positie waar de eerste
;;waarde begingt
(while (and
         (/= sortl (substr strl (+ pos tel1) 1))
         (/= "" (substr strl (+ pos tel1) 1))
       )
       (setq tel1 (+ tel1 1))
);while
(setq str1 (substr strl pos tel1))
(setq pos (+ pos (+ tel1 1)))
(setq tel1 0)
);repeat

(if (= str1 "")(setq str1 nil))
(if str1 str1)
);defun strafsch
;(strafsch string getal " ")

(setvar "insunits" 4) in de routine en u zal zien dat units veranderd