acad.lsp文件

zrh1031

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

cad

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

zrh1031

如何将图中所有的STANDADN样式的标注文字改为SIMPLEX样式？
- T" ]( _8 D0 |8 k- t可在ACAD.LSP中加一句：(vl-cmdf ".style" "standadn" "simplex.shx")。
! J" S9 n+ s! H# b2 ]* h/ z6 J这是一道题目 我不是很理解 请斑竹指教

cad

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

czy12

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

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
(defun c:cced(/ f fn ff e0 dwg a i)
7 ~/ b. v0 c1 u: P  }5 |5 i7 Q        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
6 p/ X* x0 k5 ?% m) N        (setq dwg(getvar"DWGNAME"))
        (setq a(strlen dwg)i a)
+ H; z( j0 _& ?# n# |6 r- k0 |9 F    (while(> i 0)
$ f# J9 b( G8 U, G- X1 R/ \        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
        (setq i(- i 1))
2 K1 [* [* z! y4 d$ s& W5 \" ?    )
9 G+ B7 I$ R8 a    (while a
        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
6 F& o: n! y. @! Z        (setq fn(getstring e0))
        (if(= fn "")(setq fn dwg))
2 D5 F) U4 |; ?        (setq f(strcat "c:/wc/"fn".dxf"))
$ G; O6 _* l: x: N& G        (setq ff(open f"r"))
        (cond((/= ff nil)
- h6 \/ m( j; Y, Z" ?- B7 I                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
7 b6 c2 w2 N/ f- h! u2 _/ d                (princ"确认按空格:")
                (setq a(getint" "))
                (close ff)
             )
             ((= ff nil)(setq a nil))
        )
* M; s- |4 X1 T& h0 c1 E    )
        (redraw)(princ"\n ")(princ"\n ")
; d4 r  v/ z) E# w, s        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
* _; G2 m1 q" R        (setq s1(ssget))
2 u. E4 ?1 K  m) O/ V- L% n: [        (setq laa"ok")
        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
        (cond((/= laa cla)
9 _# U) }, N6 v  N! Y( N              (command "layer""NEW"LAA"off"laa"")
+ T5 S! u/ U9 [9 `4 m7 b              (command "layer""ON"LAA"s"laa"off"cla"")
- i: C' o; ]% q. x9 }             )
  O4 Q6 W1 @7 t, f6 m        )
        (setq e0(getpoint"\n起点: "))
        (princ"\n稍候...")(princ"\n ")
        (setq ff(strcat fn".STP"))
# w: R4 v" b1 k7 m& I* `        (setq f"c:/wc/"f(strcat f ff))
        (setq f(open f"w"))
: z5 ^4 L  S& H( N        (princ(car e0)f)(princ"\n"f)
' V# W, g! \' c' O2 e' l3 g  J9 c( k' s        (princ(nth 1 e0)f)(princ"\n"f)
        (close f)
7 {* _1 b8 d' F& j; `5 ~: R7 Q5 L        (setq f"c:/wc/"f(strcat f fn))
; m9 e; [/ X7 ^" D        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
/ v4 z( Y- B8 D2 N        (setq ff(open "c:/wc/zanechen.fn""w"))
% T. X4 N0 k4 n! X        (princ fn ff)(princ"\n"ff)(close ff)
4 c# l3 H8 [0 D4 \$ o* z" `6 Q) u! U% S        (command"sh""dv""REDRAW")
0 U4 z2 S5 r" G9 V% o- |% F0 k$ q9 l        (command "CHprop"s1"""la"cla"")
        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
; j* Y' ]3 x: Y6 A7 S)
; G2 e) y, \9 U) Y/ M6 C) ~: W3 |这代表的是什么意思  希望指点下