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该如何书写格式是怎么样的比如
: w0 j$ l/ K7 A) f/ r: S7 W, f(defun c:cced(/ f fn ff e0 dwg a i)
; M# [9 Q/ a2 a        (command"sh""deldxf")
: G, v; B# _( ^% g6 |1 J4 X        (initget(+ 2 4))(princ"\n ")
  o0 u# m/ N; _$ m+ f9 |        (setq dwg(getvar"DWGNAME"))
        (setq a(strlen dwg)i a)
    (while(> i 0)
5 }( {/ p1 n8 ^3 @" i9 X$ A. I        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
        (setq i(- i 1))
    )
    (while a
        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
/ y- Q8 C2 N, A: B% ]+ r        (setq fn(getstring e0))
        (if(= fn "")(setq fn dwg))
8 F9 a  {5 r9 A- ]8 B, k  f        (setq f(strcat "c:/wc/"fn".dxf"))
) F6 u3 i" z' ]7 x7 N        (setq ff(open f"r"))
6 H. K! g7 I* a1 [        (cond((/= ff nil)
                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
                (princ"确认按空格:")
2 m5 W- E% N1 V# x0 X/ \                (setq a(getint" "))
# C6 z% @1 V1 F                (close ff)
             )
2 {4 T. q5 f" ~' U             ((= ff nil)(setq a nil))
        )
    )
0 \" t0 L& b5 [) G9 W% k2 f/ b- u" \        (redraw)(princ"\n ")(princ"\n ")
5 ?5 A0 i& X& v& x        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
        (setq s1(ssget))
        (setq laa"ok")
        (setq cla(getvar"CLAYER"))
% [* N9 {: I/ O" F) M4 z5 {. M        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
, h0 k) j; {# {        (command "CHprop"s1"""la"laa"")
9 X0 Z) _& }) L- E        (cond((/= laa cla)
              (command "layer""NEW"LAA"off"laa"")
              (command "layer""ON"LAA"s"laa"off"cla"")
5 t& C4 \" a. b& g6 M$ |. f7 ?             )
        )
        (setq e0(getpoint"\n起点: "))
        (princ"\n稍候...")(princ"\n ")
: Q  d' h3 f) g; y! t        (setq ff(strcat fn".STP"))
% [: _) V* H7 p        (setq f"c:/wc/"f(strcat f ff))
" i! v( Q/ E) M2 v8 ~! R7 s) o' z        (setq f(open f"w"))
/ \7 U& j" P# B# [: E) Q1 `  z        (princ(car e0)f)(princ"\n"f)
        (princ(nth 1 e0)f)(princ"\n"f)
        (close f)
        (setq f"c:/wc/"f(strcat f fn))
9 u# z9 N5 A: m6 x) j' |        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
9 A% w; ?2 X: X/ Q, y  W7 C        (setq ff(open "c:/wc/zanechen.fn""w"))
        (princ fn ff)(princ"\n"ff)(close ff)
8 ?' S: P6 v( P) r        (command"sh""dv""REDRAW")
- e9 n& I! t* ~- j        (command "CHprop"s1"""la"cla"")
        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
)
8 h8 V/ E- k& ?3 H这代表的是什么意思  希望指点下