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,就是呀.
; z4 [* {$ ?! I! UACAD.lsp并没有的,只是你如果有什么二次程序要自动加载,那就要写一个ACAD.LSP了,其实所谓写,也无外乎一个load命令.同时要放在你的CAD的程序SUPPORT目录内.

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
+ b0 y$ a1 c# U7 k(defun c:cced(/ f fn ff e0 dwg a i)
        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
* b6 F( o8 h' U; i* k5 N        (setq dwg(getvar"DWGNAME"))
& ~2 _: J& g0 p        (setq a(strlen dwg)i a)
8 Y+ K/ X( w  @# [2 T* i' ^    (while(> i 0)
. ]1 }+ N9 h& s0 ^        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
        (setq i(- i 1))
    )
, a8 e* Q& S* A. G& a    (while a
        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
, i3 s) `0 w; D: G: j9 S        (setq fn(getstring e0))
& _% E4 e  U7 o/ W* O        (if(= fn "")(setq fn dwg))
        (setq f(strcat "c:/wc/"fn".dxf"))
        (setq ff(open f"r"))
+ ^& s( f; a: X; n        (cond((/= ff nil)
3 M& a1 [0 J* Z9 {* K                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
+ k7 ]6 B' r- Y1 M                (princ"确认按空格:")
                (setq a(getint" "))
% k0 w) U0 P3 E$ F" F                (close ff)
$ Z" p# |6 q5 Y6 i9 r) a/ D8 ?             )
             ((= ff nil)(setq a nil))
/ p3 P6 L) @" r) S2 v! t6 w        )
5 ^* v1 s  I; V% ~! |    )
" o+ H; v  i: S3 _) a        (redraw)(princ"\n ")(princ"\n ")
- s; r8 \' L: y2 \5 z6 d" u' Z        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
, N) M+ Q$ x8 i4 ^7 v+ b7 W        (setq s1(ssget))
$ P# |+ E# L7 C, ^  U! d$ t) Q: p        (setq laa"ok")
        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
        (cond((/= laa cla)
0 u9 F" u0 k) k! p; `( C& O              (command "layer""NEW"LAA"off"laa"")
              (command "layer""ON"LAA"s"laa"off"cla"")
; N( u0 I) F8 X7 H9 Q7 \9 n             )
        )
4 I1 f0 x/ b# A5 S        (setq e0(getpoint"\n起点: "))
$ f* c) `5 q4 v( e( O' [        (princ"\n稍候...")(princ"\n ")
; L, k( k1 b1 R3 S        (setq ff(strcat fn".STP"))
+ j6 G9 ~# t! w8 s1 c; d+ K        (setq f"c:/wc/"f(strcat f ff))
        (setq f(open f"w"))
        (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))
        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
        (setq ff(open "c:/wc/zanechen.fn""w"))
- j( f$ ~" ?# m* O; K: f; \% g; G        (princ fn ff)(princ"\n"ff)(close ff)
) W. a9 C5 v. i' }( ~  ]5 ~        (command"sh""dv""REDRAW")
. P0 @% l- N: R0 s& v" d& G        (command "CHprop"s1"""la"cla"")
        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
)
; S- a& P2 L4 v) [4 I# W8 u这代表的是什么意思  希望指点下