CADsite forum

Citaat van: Atwist op do 03 06 2010, 14:00:16
HofCad,

Deze werkt perfect, moet alleen wel even opletten dat ik de tekst ivoer via commandline in plaats van op het scherm.

Mijn dank is groot

Atwist

Beste Atwist,

Wat bedoel je met: "moet alleen wel even opletten dat ik de tekst ivoer via commandline in plaats van op het scherm."
Volgens mij zit of zat de fout in je dialoogbox (zie (start_dialog)), dat daar de variabele op niet op een juiste waarde wordt gezet.

Met vriendelijke groet, HofCAD CSI.

 

Deze snap ik even niet omdat hij voor die tijd wel goed ging.

Er is niet gewijzigd in het eerste deel van lisp.

(defun c:tlm( / dlg_id do_act loop key_pr)
(defun do_act(key_pr)
  (setq op key_pr)
  (if (= key_pr "cancel") (setq loop 0))
  (setq dlg_pt (done_dialog loop))
)
(setq id (load_dialog "tlm") loop 1)
(if (< id 0) (exit))
(if (not dlg_pt) (setq dlg_pt (list -1 -1)))
(while (/= loop 0)
  (if (not (new_dialog "tlm" id "" dlg_pt))
   (exit)
  )
  (action_tile "18" "(do_act $key)")
  (action_tile "25" "(do_act $key)")
  (action_tile "35" "(do_act $key)")
  (action_tile "50" "(do_act $key)")
  (action_tile "70" "(do_act $key)")
  (action_tile "100" "(do_act $key)")
  (action_tile "140" "(do_act $key)")
  (action_tile "200" "(do_act $key)")
  (action_tile "ont" "(do_act $key)")
  (action_tile "cancel" "(do_act $key)")
 
  (start_dialog)
  (cond
((= op "18")
(command "_.-LAYER" "S" "Tekst-18" "")
(command "_.TEXT" "S" "Tekst-18" "J" "MC" (getpoint) "0" (getstring)))
((= op "25")
(command "_.-LAYER" "S" "Tekst-25" "")
(command "_.TEXT" "S" "Tekst-25" "J" "MC" (getpoint) "0" (getstring)))

Heb gisteren eeen tijd zitten puzzelen en vergeleken met een andere lisp die bijne de gelijke opbouw heeft en die wel op het tekenblad werkt.

Heeft iemand nog een oplossing wand het is erg vervelend als je een zin moet in tikken en dan de spatie gebruikt.

Atwist

Citaat van: Atwist op vr 04 06 2010, 08:13:23
Heb gisteren eeen tijd zitten puzzelen en vergeleken met een andere lisp die bijne de gelijke opbouw heeft en die wel op het tekenblad werkt.

Heeft iemand nog een oplossing wand het is erg vervelend als je een zin moet in tikken en dan de spatie gebruikt.

Atwist

Beste Atwist,

Je hebt niet de DCL file toegevoegd.
Dus ik snap niet:
1) die wel op het tekenblad werkt.
2) en dan de spatie gebruikt.

In de bijlage (attachment) vind je de Lisp file StartTxt.lsp die zelf StartTxt.dcl aanmaakt,
en werkt met tekststijlen en lagen: Tekst-18, Tekst-25, Tekst-35, Tekst-50, Tekst-70,
Tekst-100, Tekst-140 en Tekst-200.


Met vriendelijke groet, HofCAD CSI.

PS Als de DCL file nog niet is aangemaakt krijg je de eerste keer een foutmelding,
maar daarna gaat het goed.

Beste HofCad,

Ik waardeer jou hulp enorm, alleen de laatste oplossing is gelijk aan die van mij, ook hier moet ik de tekst in de commandline invoeren en dat is bij lange zinnen niet te doen.
Graag zou ik de cursor op mijn werkblad willen hebben wandt dan kan ik achter elkaar door tikken.

Citaat van: Atwist op vr 04 06 2010, 14:29:14
Beste HofCad,

Ik waardeer jou hulp enorm, alleen de laatste oplossing is gelijk aan die van mij, ook hier moet ik de tekst in de commandline invoeren en dat is bij lange zinnen niet te doen.
Graag zou ik de cursor op mijn werkblad willen hebben wandt dan kan ik achter elkaar door tikken.

Beste Atwist,

Ik zie het probleem niet, of ik begrijp je niet.
Verder zie ik een groot verschil tussen mijn aanpak en je TLM programma.
Maar verander in de file StartTxt.lsp de regel
(command "_.TEXT" "S" Choice "J" "MC" (getpoint) "0" (getstring))
in
(command "_.DTEXT" "_S" Choice "_J" "_MC" (getpoint) "0")
Misschien bedoel je dat?

Met vriendelijke groet, HofCAD CSI.

Beste HofCad,

De dtext is de oplossing
Nu werkt het perfect


Mijn dank is enorm groot.

Een heel zonning en prettig weekend.

Atwist