acad.lsp文件

zrh1031

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

cad

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

zrh1031

如何将图中所有的STANDADN样式的标注文字改为SIMPLEX样式？
- d$ i9 k1 y1 d- L, X  Y1 x可在ACAD.LSP中加一句：(vl-cmdf ".style" "standadn" "simplex.shx")。
这是一道题目 我不是很理解 请斑竹指教

cad

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

czy12

HEHE,就是呀.
* k7 T, Y. l) z6 j5 V9 d! \0 ZACAD.lsp并没有的,只是你如果有什么二次程序要自动加载,那就要写一个ACAD.LSP了,其实所谓写,也无外乎一个load命令.同时要放在你的CAD的程序SUPPORT目录内.

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
, Y1 T5 v; I7 _% E( A(defun c:cced(/ f fn ff e0 dwg a i)
        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
9 y* d5 f9 ?) F& z        (setq dwg(getvar"DWGNAME"))
- Z/ z) A+ a+ F, b( _- B        (setq a(strlen dwg)i a)
    (while(> i 0)
        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
8 ?- H( P* g2 K        (setq i(- i 1))
    )
    (while a
- Q  r( j" q& l5 {+ N, Q# W        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
! r2 Z' |# K3 Y  Y" V$ r& j        (setq fn(getstring e0))
        (if(= fn "")(setq fn dwg))
% i# T- ~; X/ v" C) ?* \        (setq f(strcat "c:/wc/"fn".dxf"))
) T. x! ?  a, }5 H; u$ U        (setq ff(open f"r"))
        (cond((/= ff nil)
                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
                (princ"确认按空格:")
                (setq a(getint" "))
                (close ff)
' d% ]; H) \7 L! W             )
1 R/ Y- s# E# l$ P             ((= ff nil)(setq a nil))
        )
    )
        (redraw)(princ"\n ")(princ"\n ")
8 q6 G% K( A  W" c+ R5 A        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
        (setq s1(ssget))
        (setq laa"ok")
# g" F# [2 i; L, d/ ^: _2 I1 F        (setq cla(getvar"CLAYER"))
! Y; X8 [# W, b2 N. n5 U        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
        (cond((/= laa cla)
              (command "layer""NEW"LAA"off"laa"")
              (command "layer""ON"LAA"s"laa"off"cla"")
8 {* i% A: S9 q% e5 D4 M0 ]* H             )
- R: Z2 r; T3 i, v+ Q6 @: M6 E        )
' ~4 l9 b  ^& ?1 E" R! V1 R        (setq e0(getpoint"\n起点: "))
, b( C6 y7 }5 y4 Z        (princ"\n稍候...")(princ"\n ")
& y# f+ ~8 ]4 R  M0 U6 {5 x! S- R        (setq ff(strcat fn".STP"))
        (setq f"c:/wc/"f(strcat f ff))
" {" D' o: v0 f! B6 P$ v! L% q        (setq f(open f"w"))
1 \  ]# q; A7 k: q/ x        (princ(car e0)f)(princ"\n"f)
        (princ(nth 1 e0)f)(princ"\n"f)
        (close f)
0 `* P9 W1 i$ F- c2 f) p# n% p        (setq f"c:/wc/"f(strcat f fn))
        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
: h( E# T+ l4 N9 M        (setq ff(open "c:/wc/zanechen.fn""w"))
" j, D0 q: i6 r0 D: y        (princ fn ff)(princ"\n"ff)(close ff)
        (command"sh""dv""REDRAW")
9 M5 X& Z! t4 f9 E        (command "CHprop"s1"""la"cla"")
2 Q7 j( G7 }# o( {' T2 h. D        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
' }. s' W$ p0 F- w. j)
这代表的是什么意思  希望指点下