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")。
3 |; g% z4 ~% s$ P5 _  m% P" _这是一道题目 我不是很理解 请斑竹指教

cad

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

czy12

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

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
2 `4 t, M/ ^, F0 ^(defun c:cced(/ f fn ff e0 dwg a i)
) V5 J( \+ y, E* [        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
        (setq dwg(getvar"DWGNAME"))
        (setq a(strlen dwg)i a)
& ^- F4 K5 q+ _* r$ T    (while(> i 0)
0 H7 q+ T. _& R/ w/ L5 C" |        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
+ b9 S# ?) W0 r- h        (setq i(- i 1))
# |4 }; t% Z  I$ {: }) y    )
  `+ d" ^7 v* G8 Q7 u4 M) Q* y    (while a
9 j% `9 [. |, W0 L        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
        (setq fn(getstring e0))
        (if(= fn "")(setq fn dwg))
8 B3 Q; n  @' ^; K        (setq f(strcat "c:/wc/"fn".dxf"))
        (setq ff(open f"r"))
        (cond((/= ff nil)
2 L( i7 R8 z, I6 h: g7 @                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
& B  _$ s- c, _/ O5 b0 X                (princ"确认按空格:")
0 M1 ?9 `% d' k7 d# U7 z                (setq a(getint" "))
                (close ff)
! i$ J8 u' H3 [1 Z4 T             )
             ((= ff nil)(setq a nil))
- o+ w; i% N- |( Z        )
    )
  W* }  q: Z& v. W        (redraw)(princ"\n ")(princ"\n ")
' N9 k  L2 N5 l. Z        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
        (setq s1(ssget))
, z. m2 V0 w; c& o6 J        (setq laa"ok")
7 V! @- [  L5 S: r" Z1 N' f        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
  I% h8 O) P; L+ b        (command "CHprop"s1"""la"laa"")
        (cond((/= laa cla)
              (command "layer""NEW"LAA"off"laa"")
8 t7 V% C$ g; m2 d5 v              (command "layer""ON"LAA"s"laa"off"cla"")
3 U0 k3 t# @0 q; l* Z             )
' d2 w3 l- w4 N4 }' z1 y8 L. r. X        )
4 j  ^7 L. s+ Y( ]4 a) u        (setq e0(getpoint"\n起点: "))
( G+ k9 M5 r8 N' j5 ]: e) Y        (princ"\n稍候...")(princ"\n ")
        (setq ff(strcat fn".STP"))
        (setq f"c:/wc/"f(strcat f ff))
; u& H8 M- C5 E        (setq f(open f"w"))
        (princ(car e0)f)(princ"\n"f)
  [, h" Q8 J! b9 |        (princ(nth 1 e0)f)(princ"\n"f)
; C5 d* x; Y' }: }  m        (close f)
* l, p, G& k; b$ C3 Z( X        (setq f"c:/wc/"f(strcat f fn))
        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
; k) Y  w* @4 Y* y7 J5 L7 E# W        (setq ff(open "c:/wc/zanechen.fn""w"))
6 b( b$ r, v7 e, Z8 j! D. V        (princ fn ff)(princ"\n"ff)(close ff)
        (command"sh""dv""REDRAW")
        (command "CHprop"s1"""la"cla"")
        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
)
这代表的是什么意思  希望指点下