acad.lsp文件

zrh1031

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

cad

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

zrh1031

如何将图中所有的STANDADN样式的标注文字改为SIMPLEX样式？
2 s2 N3 W  n3 i+ P4 c8 U4 N可在ACAD.LSP中加一句：(vl-cmdf ".style" "standadn" "simplex.shx")。
- N2 b1 S& R( s# t! T! m这是一道题目 我不是很理解 请斑竹指教

cad

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

czy12

HEHE,就是呀.
% V$ X# @& J2 o' f6 |9 oACAD.lsp并没有的,只是你如果有什么二次程序要自动加载,那就要写一个ACAD.LSP了,其实所谓写,也无外乎一个load命令.同时要放在你的CAD的程序SUPPORT目录内.

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
) {5 T6 T) M/ `- p0 F: _0 t, f" F6 m(defun c:cced(/ f fn ff e0 dwg a i)
' O4 f8 W; U2 J+ M& q        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
        (setq dwg(getvar"DWGNAME"))
        (setq a(strlen dwg)i a)
  ?3 H1 X2 \) A$ j' H  [8 ]. |    (while(> i 0)
/ a' \$ Q3 u& W( f- N) W2 }3 u% {        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
        (setq i(- i 1))
    )
% ^) @, C! F' B    (while a
8 G2 D- b$ M. a3 L8 i8 b        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
" g4 t& C7 G/ ?' j2 x+ @  W        (setq fn(getstring e0))
  k0 [, J5 `, `4 n) X7 f$ Q4 f        (if(= fn "")(setq fn dwg))
3 ^7 c+ p0 [1 X4 L, h" C) _9 B3 y        (setq f(strcat "c:/wc/"fn".dxf"))
        (setq ff(open f"r"))
        (cond((/= ff nil)
                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
7 T$ g% O9 K3 ^& {( N* j) B                (princ"确认按空格:")
                (setq a(getint" "))
9 W+ @6 b8 ?! C% ?                (close ff)
" p6 Z3 Z6 u& f$ J             )
4 P$ ~$ l% K8 R" i! b1 ]; N             ((= ff nil)(setq a nil))
        )
    )
        (redraw)(princ"\n ")(princ"\n ")
        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
        (setq s1(ssget))
        (setq laa"ok")
- `9 e' D  S. ^! |+ x( I        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
) M$ m$ {2 s" v$ K        (command "CHprop"s1"""la"laa"")
0 l7 g; M# d9 z& {        (cond((/= laa cla)
8 v$ z1 m( x) f% [              (command "layer""NEW"LAA"off"laa"")
0 |2 x- Q1 o0 m              (command "layer""ON"LAA"s"laa"off"cla"")
             )
4 ]4 ]! o8 v% I        )
        (setq e0(getpoint"\n起点: "))
& ?% n# x8 p) b1 _% k! t0 b        (princ"\n稍候...")(princ"\n ")
1 ~# K5 j1 J% F% o, N% z        (setq ff(strcat fn".STP"))
        (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)
' k/ b7 N+ ]3 N  X1 J, @- e/ E: Z        (close f)
' G6 f7 g6 ]1 S  Q& V/ q) z4 g1 X. Y        (setq f"c:/wc/"f(strcat f fn))
7 @: U4 Y. ]1 s" h9 g        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
, l3 L  Q) i' j+ ?        (setq ff(open "c:/wc/zanechen.fn""w"))
( }1 ^7 O& _! Z& M, q        (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""))
& |/ y& R8 V3 g8 u" ?1 q)
这代表的是什么意思  希望指点下