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

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
(defun c:cced(/ f fn ff e0 dwg a i)
        (command"sh""deldxf")
4 X9 f* x+ G* g- [& |        (initget(+ 2 4))(princ"\n ")
9 @. W6 b- U  M+ |2 W7 v  w+ r        (setq dwg(getvar"DWGNAME"))
0 J; Q) @! m1 G0 o, Z3 H$ ]1 i        (setq a(strlen dwg)i a)
8 z2 i" F+ h6 E( L    (while(> i 0)
        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
( x2 p! F& ]( a5 T. J$ A# G        (setq i(- i 1))
6 G6 L4 B; l# b1 N0 p; S( H1 R( W    )
    (while a
, A! i$ A% ]6 n/ u5 z        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
* O2 J: M8 ?0 b( y0 C# g1 ~1 k        (setq fn(getstring e0))
        (if(= fn "")(setq fn dwg))
        (setq f(strcat "c:/wc/"fn".dxf"))
        (setq ff(open f"r"))
9 M/ T- s' K" w        (cond((/= ff nil)
                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
                (princ"确认按空格:")
                (setq a(getint" "))
* K' K( S" f9 ]0 `9 y/ [! n                (close ff)
* z/ ^! H$ I8 z% L             )
             ((= ff nil)(setq a nil))
        )
    )
) A: x& v2 e% O9 j7 F' P& T        (redraw)(princ"\n ")(princ"\n ")
8 O! v- O$ E- K: ^" \& f! P        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
        (setq s1(ssget))
        (setq laa"ok")
! I  T- H# G2 H        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
        (cond((/= laa cla)
, o5 d6 {% Y/ ?  N3 d              (command "layer""NEW"LAA"off"laa"")
8 ]; Y2 Z  O7 t0 j0 a. f              (command "layer""ON"LAA"s"laa"off"cla"")
  j8 q( o- D$ {3 D5 ]- U* p- D( p             )
  t. n/ B* e3 \* b  G4 ?/ a        )
        (setq e0(getpoint"\n起点: "))
        (princ"\n稍候...")(princ"\n ")
. Q' m+ `( d  f/ C3 D        (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)
. {& d0 \* Q/ g0 v9 ]        (close f)
  f7 v" x: ?* _2 K. D& k+ b) v' E        (setq f"c:/wc/"f(strcat f fn))
        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
# K/ j, S  O* ^+ R( S0 y: J( g% v/ s# B        (setq ff(open "c:/wc/zanechen.fn""w"))
        (princ fn ff)(princ"\n"ff)(close ff)
        (command"sh""dv""REDRAW")
& A' q% i3 K8 s8 i        (command "CHprop"s1"""la"cla"")
  R5 }  \+ X3 ?2 n  D2 ?) i        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
)
这代表的是什么意思  希望指点下