(defun c:XDTB_TABLEDELCol (/ tbl xdir p1 p2 cols col1 col2 start nums)
(xdrx-begin)
(xdrx-sysvar-push '("osmode" 0))
(if (and (setq tbl (car (xdrx-entsel
(xdrx-string-multilanguage
"\n选择表格<退出>:"
"Select Table<Exit>:"
)
'((0 . "*table"))
)
)
)
(setq xdir (xdrx-getpropertyvalue tbl "xdirection"))
(setq p1 (getpoint "\nPick the starting Column to delete<Exit>:"))
(setq p2 (xd::doc:getcorner
p1
"\nPick the Ending Column to delete<Exit>:"
8
xdir
)
)
(setq p2 (cadr p2))
(setq
col1 (xdrx-table-hittest
tbl
(trans (car p2) 1 0)
'(0 0 1)
1.0
1.0
)
)
(setq col2 (xdrx-table-hittest
tbl
(trans (cadr p2) 1 0)
'(0 0 1)
1.0
1.0
)
)
)
(progn
(setq cols (vl-sort (list (cadr col1) (cadr col2)) '<)
start (car cols)
nums (1+ (- (cadr cols) (car cols)))
)
(xdrx-table-deletecolumns tbl start nums)
(xdrx-prompt
(xdrx-string-formatex
(xdrx-string-multilanguage
"\n表格删除了 %d 列."
"\nTable deleted %d Columns"
)
nums
)
)
)
)
(xdrx-sysvar-pop)
(xdrx-end)
(princ)
)