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")。
- I" B+ O& R/ t2 y- W这是一道题目 我不是很理解 请斑竹指教

cad

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

czy12

HEHE,就是呀.
% _9 `4 D8 M) ^7 U: W$ y4 j$ MACAD.lsp并没有的,只是你如果有什么二次程序要自动加载,那就要写一个ACAD.LSP了,其实所谓写,也无外乎一个load命令.同时要放在你的CAD的程序SUPPORT目录内.

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
1 S: C% v7 L6 W(defun c:cced(/ f fn ff e0 dwg a i)
' d+ f2 _$ L7 b) @        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
: N; U0 Q! h$ t/ S7 o, j" w        (setq dwg(getvar"DWGNAME"))
        (setq a(strlen dwg)i a)
' x& u  I# I- K1 x7 f: ~! y3 n0 U' Z    (while(> i 0)
        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
8 B- n. p! U1 x3 |# `7 h        (setq i(- i 1))
1 a; b& m/ b% w2 R* D( @/ O    )
    (while a
        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
        (setq fn(getstring e0))
6 ^! x, ?( Y& t, U5 _0 G& w        (if(= fn "")(setq fn dwg))
        (setq f(strcat "c:/wc/"fn".dxf"))
        (setq ff(open f"r"))
        (cond((/= ff nil)
7 x6 c$ N# U/ ?/ j7 L! r                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
. u& t7 B1 W+ ?1 j" u8 f* K                (princ"确认按空格:")
7 M" v) r: l2 e% r! r$ G2 c                (setq a(getint" "))
1 _$ a% h2 X* S8 b                (close ff)
             )
             ((= ff nil)(setq a nil))
+ y! q. ?0 _+ [/ \, s        )
    )
        (redraw)(princ"\n ")(princ"\n ")
        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
  i& u3 y4 Y* Z! Q        (setq s1(ssget))
        (setq laa"ok")
        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
3 t: V3 x4 Q4 n4 z3 U        (command "CHprop"s1"""la"laa"")
4 {7 Q/ n5 z  G- _5 v        (cond((/= laa cla)
/ G8 j7 X( H8 A5 ^0 [$ ?              (command "layer""NEW"LAA"off"laa"")
              (command "layer""ON"LAA"s"laa"off"cla"")
             )
+ ~# \/ g1 N9 \3 T3 y7 @! C        )
6 q4 l, B* S/ V        (setq e0(getpoint"\n起点: "))
        (princ"\n稍候...")(princ"\n ")
        (setq ff(strcat fn".STP"))
; Z( i+ L% \3 I$ Y# {5 q. n. n        (setq f"c:/wc/"f(strcat f ff))
        (setq f(open f"w"))
        (princ(car e0)f)(princ"\n"f)
' g/ o( u  I7 V. c        (princ(nth 1 e0)f)(princ"\n"f)
% }) h7 q% }( r& r" [2 f. }        (close f)
2 ^# s# u1 u% p3 B  e( t) K        (setq f"c:/wc/"f(strcat f fn))
        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
        (setq ff(open "c:/wc/zanechen.fn""w"))
        (princ fn ff)(princ"\n"ff)(close ff)
; |, v% w) r; E7 O3 g        (command"sh""dv""REDRAW")
        (command "CHprop"s1"""la"cla"")
' @  E6 s+ A, T% H+ h4 |% K        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
)
. i# S- ~! y$ b* |! ]" M这代表的是什么意思  希望指点下