TABLEDIT AutoCAD 2006

[HofCAD]

Geachte CADliefhebbers,

In AutoCAD 2005 gaf het commando TABLEDIT een normale werking in AutoLisp,
maar in AutoCAD 2006 geeft het commando na uitvoering nog extra prompts.
Weet iemand hoe men dit kan onderdrukken.
Als voorbeeld kun je in het onderstaande programma zien, dat het commando TABELEDIT
napruttelt.
Door het napruttelen gaat getkword niet goed.

(defun c:test3()
(setvar "CMDECHO" 0)
(initget " ")
(getkword "\nTest gaat beginnen geef een <Enter>")
(command "_TABLE" 2 3 "H" "1" "W" "40" "S" "Standard" '(100 200))
(getkword "\nTabel is gemaakt, geef een <Enter>")
(command "_TABLEDIT" '(100 200) "Title")
(initget " ")
(getkword "\nTitelhoofd is ingevuld, geef een <Enter>")
(command "_TABLEDIT" '(105 180) "Header1")
(command "_TABLEDIT" '(145 180) "Header2")
(initget " ")
(getkword "\nKolomhoofden zijn ingevuld, geef een <Enter>")
(command "_TABLEDIT" '(105 171) "Data11")
(command "_TABLEDIT" '(145 171) "Data21")
(initget " ")
(getkword "\nGegevens  van rij 1 zijn ingevuld, geef een <Enter>")
(command "_TABLEDIT" '(105 162) "Data12")
(command "_TABLEDIT" '(145 162) "Data22")
(initget " ")
(getkword "\nGegevens  van rij 2 zijn ingevuld, geef een <Enter>")
(command "_TABLEDIT" '(105 153) "Data13")
(command "_TABLEDIT" '(145 153) "Data23")
(initget " ")
(getkword "\nGegevens zijn ingevuld, geef een <Enter>")
(setvar "CMDECHO" 1)
(textscr)
)

Als men getkword vervangt door getstring zijn er geen tussenstops
meer, na het gebruik van het commando TABLEDIT.
Het gaat mij er niet alleen om, om alleen tussenpauzes te creëren.
Is er tegen deze napruttel  ziekte een medicijn?
Bij voorbaat mijn dank.

Groetjes HofCAD CSI

[HofCAD]

Geachte CADliefhebbers,

In AutoCAD 2005 gaf het commando TABLEDIT een normale werking in AutoLisp,
maar in AutoCAD 2006 geeft het commando na uitvoering nog extra prompts.
Weet iemand hoe men dit kan onderdrukken.
Als voorbeeld kun je in het onderstaande programma zien, dat het commando TABELEDIT
napruttelt.
Door het napruttelen gaat getkword niet goed.
Is er tegen deze napruttel  ziekte een medicijn?
Bij voorbaat mijn dank.

Groetjes HofCAD CSI

Geachte CADliefhebbers,

Door veel geluk ben ik er achter gekomen, dat invullen van een tabel met Visual Lisp
in AutoCAD 2006 geen napruttel problemen geeft.

Code Selecteer Uitklappen


(defun c:test4()
(setvar "CMDECHO" 0)
(vl-load-com)
(initget " ")
(getkword "\nTest gaat beginnen geef een <Enter>")
(command "_TABLE" 2 3 "H" "1" "W" "40" "S" "Standard" '(100 200))
(setq tbl (vlax-ename->vla-object (entlast)))
(getkword "\nTabel is gemaakt, geef een <Enter>")
(setq tx (vla-settext tbl 0 0 "Title"))
(initget " ")
(getkword "\nTitelhoofd is ingevuld, geef een <Enter>")
(setq tx (vla-settext tbl 1 0 "Header10"))
(setq tx (vla-settext tbl 1 1 "Header11"))
(initget " ")
(getkword "\nKolomhoofden zijn ingevuld, geef een <Enter>")
(vlax-invoke-method tbl 'SetText 2 0 "Data20")
(vlax-invoke-method tbl 'SetText 2 1 "Data21")
(initget " ")
(getkword "\nGegevens  van rij 1 zijn ingevuld, geef een <Enter>")
(setq tx (vla-settext tbl 3 0 "Data30"))
(setq tx (vla-settext tbl 3 1 "Data31"))
(initget " ")
(getkword "\nGegevens  van rij 2 zijn ingevuld, geef een <Enter>")
(setq tx (vla-settext tbl 4 0 "Data40"))
(setq tx (vla-settext tbl 4 1 "Data41"))
(initget " ")
(getkword "\nGegevens zijn ingevuld, geef een <Enter>")
(setvar "CMDECHO" 1)
(textscr)
)


Dus door heel veel geluk een beetje wijsheid.

Met vriendelijke groet,
HofCAD CSI