acad.lsp文件

zrh1031

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

cad

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

zrh1031

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

cad

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

czy12

HEHE,就是呀.
8 s8 A9 `0 N& J5 U$ D8 P" SACAD.lsp并没有的,只是你如果有什么二次程序要自动加载,那就要写一个ACAD.LSP了,其实所谓写,也无外乎一个load命令.同时要放在你的CAD的程序SUPPORT目录内.

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
' T$ T4 _) u- h' |(defun c:cced(/ f fn ff e0 dwg a i)
        (command"sh""deldxf")
' t' s. \( f( T9 D7 i7 L        (initget(+ 2 4))(princ"\n ")
        (setq dwg(getvar"DWGNAME"))
        (setq a(strlen dwg)i a)
0 z* z; O6 r2 L    (while(> i 0)
, T0 M( [% t; {2 G: D        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
        (setq i(- i 1))
    )
  }! J. o0 a# j; W    (while a
) v, @  [) t- m6 ?7 `! ^        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
% p4 o3 k1 \# X9 `1 ]        (setq fn(getstring e0))
* p* N! q& n2 m/ J8 z        (if(= fn "")(setq fn dwg))
        (setq f(strcat "c:/wc/"fn".dxf"))
        (setq ff(open f"r"))
5 b8 S& Q& _! _, k* |        (cond((/= ff nil)
                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
, g4 \# c3 L( g$ l( ^; j                (princ"确认按空格:")
                (setq a(getint" "))
                (close ff)
1 I$ n/ n. i2 f7 u+ V  t             )
3 Y- d, l0 w8 m$ x4 b- h# U5 y             ((= ff nil)(setq a nil))
  n! ]1 B5 k. T; x9 G+ |" Q. _        )
    )
        (redraw)(princ"\n ")(princ"\n ")
        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
        (setq s1(ssget))
        (setq laa"ok")
        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
        (cond((/= laa cla)
# F2 w3 v- U3 {8 C) h% v              (command "layer""NEW"LAA"off"laa"")
; x" G% j& ]2 m. u              (command "layer""ON"LAA"s"laa"off"cla"")
             )
) t( G: j% c& E9 k5 B        )
        (setq e0(getpoint"\n起点: "))
        (princ"\n稍候...")(princ"\n ")
" r% x, z. C+ Z3 q        (setq ff(strcat fn".STP"))
7 u$ w: ?, z9 Z" D( J        (setq f"c:/wc/"f(strcat f ff))
3 e6 k1 i+ G7 M        (setq f(open f"w"))
7 Y7 T. X  J' k' R: e        (princ(car e0)f)(princ"\n"f)
* B* V5 n; X- W8 t( W        (princ(nth 1 e0)f)(princ"\n"f)
+ j% `2 I! c; T/ X6 b        (close f)
        (setq f"c:/wc/"f(strcat f fn))
8 m! S* h- V, C6 g( G, n        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
. \! w: y; o/ v" B& p& j        (setq ff(open "c:/wc/zanechen.fn""w"))
" u9 q8 N& F# _3 T+ C$ t, `7 Y        (princ fn ff)(princ"\n"ff)(close ff)
3 ~& m9 ?" t' |        (command"sh""dv""REDRAW")
        (command "CHprop"s1"""la"cla"")
! A- e* `: @9 Q        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
)
) W6 `) W" l" `' y$ X8 C这代表的是什么意思  希望指点下