acad.lsp文件

zrh1031

我想知道acad.lsp文件存在哪,我在C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2009\R17.2\chs\Support找了好久都没有.请大虾指教!谢谢

cad

你为什么要找这个东西？本来就没有，你去哪里找？

zrh1031

如何将图中所有的STANDADN样式的标注文字改为SIMPLEX样式？
可在ACAD.LSP中加一句：(vl-cmdf ".style" "standadn" "simplex.shx")。
这是一道题目 我不是很理解 请斑竹指教

cad

既然没有你可以自己建立一个试试

czy12

HEHE,就是呀.
ACAD.lsp并没有的,只是你如果有什么二次程序要自动加载,那就要写一个ACAD.LSP了,其实所谓写,也无外乎一个load命令.同时要放在你的CAD的程序SUPPORT目录内.

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
+ ^: S- I5 b0 T8 ?1 L. _(defun c:cced(/ f fn ff e0 dwg a i)
9 c1 G9 E. E4 a0 q% h* G$ y        (command"sh""deldxf")
7 R5 @! W3 g! C  G        (initget(+ 2 4))(princ"\n ")
        (setq dwg(getvar"DWGNAME"))
        (setq a(strlen dwg)i a)
  T/ d( [+ X& B* K# D    (while(> i 0)
+ [1 j& N/ f- g' p3 T. x8 D  Q        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
( x2 M  K9 e2 C  B! y6 d5 a. t        (setq i(- i 1))
    )
# ?) b4 A6 @* C& P- b! F    (while a
8 ]6 X  s% T" X# M- f# Z- H        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
, E! U6 X" g- r        (setq fn(getstring e0))
" ?* W8 Y6 y; T: ?! Z        (if(= fn "")(setq fn dwg))
        (setq f(strcat "c:/wc/"fn".dxf"))
2 \, d5 U: O( \' i+ z. ~        (setq ff(open f"r"))
& _' e- T" H/ J# N: t        (cond((/= ff nil)
4 ~/ N- h' A1 b0 |' Y1 [2 b0 Z                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
9 W$ I6 }9 u' W- m% E3 w7 \                (princ"确认按空格:")
                (setq a(getint" "))
                (close ff)
             )
+ j9 |6 c0 q- T, K             ((= ff nil)(setq a nil))
! a$ {  T* f/ t        )
  ?+ d  {" e  o( a    )
        (redraw)(princ"\n ")(princ"\n ")
+ p1 X% \' E/ A$ Q, Y! I8 G        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
        (setq s1(ssget))
7 `8 O. x1 k7 p; o; x        (setq laa"ok")
2 e# F8 e. \5 e( c/ A5 O& U        (setq cla(getvar"CLAYER"))
0 M- n) n% D& p" ~, B& y% N        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
        (cond((/= laa cla)
              (command "layer""NEW"LAA"off"laa"")
              (command "layer""ON"LAA"s"laa"off"cla"")
( g- S- D$ W' n5 [, f  x             )
        )
3 P# H' x* }: z$ y        (setq e0(getpoint"\n起点: "))
* m; }/ W6 x: K7 J7 i( U; |        (princ"\n稍候...")(princ"\n ")
        (setq ff(strcat fn".STP"))
        (setq f"c:/wc/"f(strcat f ff))
* D2 q$ A) Z' w) B$ s5 C        (setq f(open f"w"))
        (princ(car e0)f)(princ"\n"f)
        (princ(nth 1 e0)f)(princ"\n"f)
4 y9 O  i8 N+ H; f+ c8 `5 v; d" j        (close f)
/ M* K* d! L6 t( S+ U% ^        (setq f"c:/wc/"f(strcat f fn))
        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
1 z% V% }- m+ x3 H0 Q& Y. p        (setq ff(open "c:/wc/zanechen.fn""w"))
5 ]) X8 x  N( B        (princ fn ff)(princ"\n"ff)(close ff)
        (command"sh""dv""REDRAW")
        (command "CHprop"s1"""la"cla"")
/ F( A! o6 s# x) j7 K        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
)
  z4 y! G, s$ [" ]) m8 a& ^这代表的是什么意思  希望指点下