标准样式替换不了，请指点

dhy · 发表于 2014-5-22 08:21:29

我加载LSP后，再把原码改一下数据，比如原来是后续不清零的，改回清零的，文字高度也改变，可是再加载，图档里面的标注样式里面的设置并没有改变，为什么呢？请高手指点一下，要怎样写才能在再次加载的时候标注样式的设置会改变。
(defun c:TTS()
   (setq DHY20140521 (getvar "osmode"))
   (setvar "osmode" 0)
   (setq olddimstyle (getvar "dimstyle"))
   (setvar "cmdecho" 0)
  (command "style" "STANDARD" "txt.shx,hztxt.shx " "0" "1" "0" "" ""  "")
  (command "dimtxt" "2"    "dimasz"    "0.5"
         "dimexe" ".5"    "dimexo"    "0.5"
         "dimgap" "0.5"    "dimtoh" "off"
         "dimtih" "off"    "blipmode" "0"
         "DIMDLI" "5"    "DIMATFIT" "3"
         "DIMZIN" "0"
         "DIMTAD" "3"    "DIMDEC"    "3"
         "DIMTXSTY"    "standard"
         "DIMCLRT" "6"    "DIMJUST"  "0"
         "DIMDSEP"  "."       "DIMTOFL"  "0"
         "dimtmove" "0"    "dimcen" "0"
         "dimclrd" "115"    "dimclre" "8"
         "dimaunit" "0"       (setvar "dimadec" 1)
      (if (not (tblsearch "DIMSTYLE" "H2"))
         (command "DIMSTYLE" "S" "H2"  "") ) ;当图中无H2样式名称就建H2
      )
   (command "-DIMSTYLE" "r" olddimstyle)
   (setvar "osmode" DHY20140521)
(princ)

鱼与熊掌 · 发表于 2014-5-23 00:53:18

思路不错。。恩来自: Android客户端

USER2128 · 发表于 2014-5-23 08:04:33

在IF后项加入：“当图中存在H2样式名称时，覆盖存入H2”

ZZXXQQ · 发表于 2014-5-23 08:06:00

(if (not (tblsearch "DIMSTYLE" "H2"))
(command "DIMSTYLE" "S" "H2" "") ) ;当图中无H2样式名称就建H2
改成：
(if (not (tblsearch "DIMSTYLE" "H2"))
(command "DIMSTYLE" "S" "H2" "")
(command "-DIMSTYLE" "S" "H2" "Y")
)

dhy · 发表于 2014-5-23 09:51:29

终于解决了，真谢谢ZZXXQQ版主你了

账号		自动登录	找回密码
密码			注册

[已解答] 标准样式替换不了，请指点

点评

点评