请检查我的代码以了解accur 乐筑天下

CadJunky 发表于 2022-7-5 17:02:32

谢谢，rlx，我会试试这个，看看有没有什么不同。

rlx 发表于 2022-7-5 17:06:30

我能想到的另一件事是禁用启动时加载的所有其他例程，包括acad。lsp并从空白处开始，查看问题是否仍然存在。还要检查所有支持、字体和模板路径是否相同。

快乐比较；-）

gr.Rlx

CadJunky 发表于 2022-7-5 17:10:23

太棒了，一定会成功的。谢谢rlx

rlx 发表于 2022-7-5 17:16:42

Autocad 2017:nos问题。。。

sieu khung khie 发表于 2022-7-5 17:18:21

可能是。。。我已经不知道了，但它很管用。

(defun c:Insertdim ( )
(if (not (tblsearch "STYLE" "STANDARD"))
   (command "_.-style" "STANDARD" "SIMPLEX.SHX" 0 1.0 0 "_N" "_N" "_N")
)
      (setvar "CMDECHO" 0)
      (setvar "LUNITS" 4)
      (setvar "DIMASSOC" 2)
      (setvar "DIMBLK" "_ARCHTICK")
      (setvar "DIMLDRBLK" ".")
      (if (/= (getvar 'dimanno) 1) (setvar "DIMSCALE" 48))
      (setvar "DIMASZ" 0.09375)
      (setvar "DIMEXE" 0.0625)
      (setvar "DIMEXO" 0.0625)
      (setvar "DIMDLE" 0)
      (setvar "DIMDLI" 0.38)
      (setvar "DIMTIH" 0)
      (setvar "DIMTOH" 0)
      (setvar "DIMTAD" 1)
      (setvar "DIMZIN" 3)
      (setvar "DIMTXT" 0.125)
      (setvar "DIMALTF" 25.4)
      (setvar "DIMGAP" 0.0625)
      (setvar "DIMALTD" 2)
      (setvar "DIMTOFL" 0)
      (setvar "DIMUNIT" 4)
      (setvar "DIMDEC" 4)
      (setvar "DIMALTU" 2)
      (setvar "DIMAUNIT" 0)
      (setvar "DIMJUST" 0)
      (setvar "DIMALTTZ" 0)
      (setvar "DIMTXSTY" "STANDARD")
(if (not (tblsearch "DIMSTYLE" "STANDARD"))
      (command "_.-dimstyle" "_s" "STANDARD")
      (command "_.-dimstyle" "_s" "STANDARD" "_y")
);IF
(princ)
);end defun

页: 1 [2]

乐筑天下's Archiver