怎样才能获取修改后的尺寸标注的dimscale值

congcong · 发表于 2003-1-4 21:12:00

我标注一根直线的长度，假如当前标注样式的dimscale值为3.0,然后我用更改属性（mo)命令在对话框里更改这个标注的fit值为2.0,那么我如何才能在程序中获取这个标注的dimscale值呢？
有一点说明的是更改后此标注的dimscale值用list命令能在文本框中显示出来，但是用entget则无论如何也找不到相应的数值，用(vla-get-fit ) 获得也只是此种样式的dimscale值，而非此标注的dimscale值。
渴望各位大师能指点迷津!!!

amos_lg · 发表于 2003-1-5 16:48:00

你在程序中的变量保存起来不就得了
在lisp语言中用(setq sc (getvar "dimscale")),要知道结果就查变量sc!!

龙龙仔 · 发表于 2003-1-6 08:16:00

For Autolisp
(defun c:a1 (/ sel-1 aa)
(Setq sel-1 (entsel "\n选取标注对象:"))
(setq aa (assoc -3(entget (car sel-1) '("ACAD"))))
)
如aa不等于nil,可得出类似如下数据:
(-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 144) (1040 . 0.5) (1002 . "}")))
其中(1070 . 144) (1040 . 0.5)可看出dimlfac=0.5
以下为各号码与系统变量对照数据:
      (2 . "DIMSTYLE")
      (3 . "DIMPOST")
      (4 . "DIMAPOST")
      (5 . "DIMBLK")
      (6 . "DIMBLK1")
      (7 . "DIMBLK2")
      (40 . "DIMSCALE")
      (41 . "DIMASZ")
      (42 . "DIMEXO")
      (43 . "DIMDLI")
      (44 . "DIMEXE")
      (45 . "DIMRND")
      (46 . "DIMDLE")
      (47 . "DIMTP")
      (48 . "DIMTM")
      (71 . "DIMTOL")
      (72 . "DIMLIM")
      (73 . "DIMTIH")
      (74 . "DIMTOH")
      (75 . "DIMSE1")
      (76 . "DIMSE2")
      (77 . "DIMTAD")
      (78 . "DIMZIN")
      (79 . "DIMAZIN")
      (140 . "DIMTXT")
      (141 . "DIMCEN")
      (142 . "DIMTSZ")
      (143 . "DIMALTF")
      (144 . "DIMLFAC")
      (145 . "DIMTVP")
      (146 . "DIMTFAC")
      (147 . "DIMGAP")
      (148 . "DIMALTRND")
      (170 . "DIMALT")
      (171 . "DIMALTD")
      (172 . "DIMTOFL")
      (173 . "DIMSAH")
      (174 . "DIMTIX")
      (175 . "DIMSOXD")
      (176 . "DIMCLRD")
      (177 . "DIMCLRE")
      (178 . "DIMCLRT")
      (179 . "DIMADEC")
      (270 . "DIMUNIT")
      (271 . "DIMDEC")
      (272 . "DIMTDEC")
      (273 . "DIMALTU")
      (274 . "DIMALTTD")
      (275 . "DIMAUNIT")
      (276 . "DIMFRAC")
      (277 . "DIMLUNIT")
      (278 . "DIMDSEP")
      (279 . "DIMTMOVE")
      (280 . "DIMJUST")
      (281 . "DIMSD1")
      (282 . "DIMSD2")
      (283 . "DIMTOLJ")
      (284 . "DIMTZIN")
      (285 . "DIMALTZ")
      (286 . "DIMALTTZ")
      (287 . "DIMFIT")
      (288 . "DIMUPT")
      (289 . "DIMATFIT")
      (340 . "DIMTXSTY")
      (341 . "DIMLDRBLK")
      (342 . "DIMBLK")
      (343 . "DIMBLK1")
      (344 . "DIMBLK2")
      (371 . "DIMLWD")
      (372 . "DIMLWE")
for Visual lisp
vla-get-scalefactor

怎样才能获取修改后的尺寸标注的dimscale值

发表回复

精选推荐

浏览过的版块