如何更改单元格类型
如果你以前看过这个代码，不要跑掉。我的问题没那么难。好的，我上个月修改了这个代码的****。如果你看一下我的代码，rtos设置为3.8，这是因为我得到了更精确的计算。我的问题是，第一个信息或数据单元以lunits的形式出现，luprec是否可以将这一单元设置为rtos 4 4？我试过了vla setcelldatatype
vla设置单元格格式
但几乎没有成功。有人回答吗？
(defun C:stub (/ col count dis dmz lpc lup pt row row1 strdis tb va vm vo slp)
(setq pt (vlax-3d-point (getpoint "\nPick Insertion Point: ")))
(setq vo (vlax-get-acad-object))
(setq va (vla-get-activedocument vo))
(setq vm (vla-get-modelspace va))
(setq row (+ 1 (getreal "\nHow many Stubs? : ")))
(setq row1 (- row 1))
(setq col 1)
(setq slp (getdist "\nWhat is the slope? : "))
(setq dis (/ slp row1))
(setq lup (getvar "lunits"))
(setvar "lunits" 4) ; architectural units
(setq lpc (getvar "luprec"))
(setvar "luprec" 4) ;precision 1/16"
(setq dmz (getvar "dimzin"))
(setvar "dimzin" 0) ;includes both feet and inches for primary unit
(setq strdis (rtos dis 1 )
(setq tb (vla-addtable vm pt row col 1 1))
(vla-put-titlesuppressed tb :vlax-false)
(vla-put-headersuppressed tb :vlax-true)
(vla-put-RegenerateTableSuppressed tb :vlax-true)
(vla-put-vertcellmargin tb 0.5)
(vla-put-horzcellmargin tb 0.5)
(vla-setrowheight tb 0 4.5)
(vla-setcolumnwidth tb 0 16.1)
(vla-settextstyle tb actitlerow"bold") ;title text style
(vla-settextstyle tb acdatarow"STANDARD") ;data rows text style
(vla-settextheight tb actitlerow2.5) ;title text height = 0.27
(vla-settextheight tb acdatarow1.75) ;other cells text height = 0.21
(vla-setalignment tb actitlerow acmiddlecenter) ;title alignment
(vla-setalignment tb acdatarow acmiddlecenter) ;data cell alignment
(vla-settext tb 0 0 "STUBS") ;title text
(vla-settext tb 2 0 dis)
(setq count 1)
(while (< count row)
(vla-setrowheight tb count 4.5)
(if (= count 1)
(progn
(vla-settext tb count 0 strdis)
(vla-setcellformat tb count 0 "%lu4%pr4"));lu4 - format in architectural units, pr4 - precision is 1/16"
(progn
(vla-settext tb count 0 (strcat "= A2*" (itoa count)));lu4 - format in architectural units, pr4 - precision is 1/16"
(vla-setcellformat tb count 0 "%lu4%pr4")
)
)
(setq count (1+ count))
)
(vla-put-RegenerateTableSuppressed tb :vlax-false)
(setvar "luprec" lpc)
(setvar "lunits" lup)
(setvar "dimzin" dmz)
(princ)
) ;_ end
(vl-load-com)
~我们都是上帝的孩子~ 好的，归根结底，我希望第一个单元格以英尺和英寸为单位显示，而不是以十进制形式显示，而是保持其精度，以便数字正确。
页:
[1]