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

思路不错。 。恩

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版主你了
页: [1]
查看完整版本: 标准样式替换不了，请指点