HofCAD
Joined: 01 Jul 2005
Posts: 8
|
 Posted:
Wed Feb 01, 2006 2:41 pm Post subject:
TABLEDIT AutoCAD 2006 |
|
|
Hello CAD friends,
I was wondering if anyone one know why there is a
problem with TABLEDIT in AutoCAD 2006.
Tabledit gives an extra prompt????
In AutoCAD 2005 there is no problem.
(defun c:test2()
(setvar "CMDECHO" 0)
(initget " ")
(getkword "\nTest starts, please <Enter>")
(command "_TABLE" 2 3 "H" "1" "W" "40" "S" "Standard" '(100 200))
(getkword "\nTable is done, please <Enter>")
(command "_TABLEDIT" '(100 200) "Title")
(initget " ")
(getkword "\nTitel is done, please <Enter>")
(command "_TABLEDIT" '(105 180) "Header1")
(command "_TABLEDIT" '(145 180) "Header2")
(initget " ")
(getkword "\nHeader is done, please <Enter>")
(command "_TABLEDIT" '(105 171) "Data11")
(command "_TABLEDIT" '(145 171) "Data21")
(initget " ")
(getkword "\nData row 1 is done, please <Enter>")
(command "_TABLEDIT" '(105 162) "Data12")
(command "_TABLEDIT" '(145 162) "Data22")
(initget " ")
(getkword "\nData row 2 is done, please <Enter>")
(command "_TABLEDIT" '(105 153) "Data13")
(command "_TABLEDIT" '(145 153) "Data23")
(initget " ")
(getkword "\nData is finish, please <Enter>")
(setvar "CMDECHO" 1)
(textscr)
)
If getkword is replaced with getstring, there is no pause after
the use of tabledit.
Thanks.
HofCAD CSI
|
|
HofCAD
Joined: 01 Jul 2005
Posts: 8
|
| Posted:
Fri Feb 10, 2006 10:19 am Post subject:
Re: TABLEDIT AutoCAD 2006 |
|
|
| HofCAD wrote: | Hello CAD friends,
I was wondering if anyone one know why there is a
problem with TABLEDIT in AutoCAD 2006.
Tabledit gives an extra prompt????
In AutoCAD 2005 there is no problem.
HofCAD CSI |
Hello CAD friends,
There is no problem if you use (vla-settext ......)
(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 "\nTable is done, please <Enter>")
(setq tx (vla-settext tbl 0 0 "Title"))
(initget " ")
(getkword "\nTitel is done, please <Enter>")
(setq tx (vla-settext tbl 1 0 "Header10"))
(setq tx (vla-settext tbl 1 1 "Header11"))
(initget " ")
(getkword "\nHeader is done, please <Enter>")
(vlax-invoke-method tbl 'SetText 2 0 "Data20")
(vlax-invoke-method tbl 'SetText 2 1 "Data21")
(initget " ")
(getkword "\nData row 1 is done, please <Enter>")
(setq tx (vla-settext tbl 3 0 "Data30"))
(setq tx (vla-settext tbl 3 1 "Data31"))
(initget " ")
(getkword "\nData row 2 is done, please <Enter>")
(setq tx (vla-settext tbl 4 0 "Data40"))
(setq tx (vla-settext tbl 4 1 "Data41"))
(initget " ")
(getkword "\nData is finish, please <Enter>")
(setvar "CMDECHO" 1)
(textscr)
)
HofCAD CSI |
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in
