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)
0 Q2 t8 ^1 n( U6 M        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
        (setq dwg(getvar"DWGNAME"))
        (setq a(strlen dwg)i a)
    (while(> i 0)
6 [! c4 ?2 m8 ]7 d) [9 Z5 [        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
        (setq i(- i 1))
    )
: @: D# T3 X$ K! b$ Q% N& Y. M$ Q    (while a
0 u8 P* x5 z2 P# z        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
5 i$ _5 ]9 K  X        (setq fn(getstring e0))
/ M! z% w/ C  U! c        (if(= fn "")(setq fn dwg))
        (setq f(strcat "c:/wc/"fn".dxf"))
. R0 ?, L6 A* ?        (setq ff(open f"r"))
        (cond((/= ff nil)
8 [9 q$ U) i* _; V9 T                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
- ?  I, L4 E! @* [/ {& a# ^! k                (princ"确认按空格:")
                (setq a(getint" "))
3 h7 B+ Y! i  J3 S                (close ff)
             )
& E5 I3 O* p+ U2 @             ((= ff nil)(setq a nil))
        )
' q5 K2 n* M1 o( o    )
        (redraw)(princ"\n ")(princ"\n ")
+ j  ?# ?, g- `        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
0 Q3 @! `  B! [7 f* A        (setq s1(ssget))
" F: ]& j% ^8 q        (setq laa"ok")
        (setq cla(getvar"CLAYER"))
# E& P' ^$ r" H$ \7 b" D: r        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
        (cond((/= laa cla)
5 I! n% S' J% j0 x              (command "layer""NEW"LAA"off"laa"")
              (command "layer""ON"LAA"s"laa"off"cla"")
8 D. |8 V( ?, z, q+ d4 q) \             )
        )
( i! Y# i  S7 L' {. W; C        (setq e0(getpoint"\n起点: "))
9 w, j2 p6 I: F& L1 H        (princ"\n稍候...")(princ"\n ")
        (setq ff(strcat fn".STP"))
        (setq f"c:/wc/"f(strcat f ff))
( S9 D. t8 _/ [! t7 G        (setq f(open f"w"))
        (princ(car e0)f)(princ"\n"f)
# L9 m9 w2 C2 N, e8 g+ j5 W1 d3 z        (princ(nth 1 e0)f)(princ"\n"f)
        (close f)
        (setq f"c:/wc/"f(strcat f fn))
. Y: C1 Y4 [; X! h4 \% G        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
+ E, |8 Q; b' V( Z7 y        (setq ff(open "c:/wc/zanechen.fn""w"))
/ g# ~) t" m1 n' p" x        (princ fn ff)(princ"\n"ff)(close ff)
) o& W9 @+ U. G  n7 A8 Y6 |: W        (command"sh""dv""REDRAW")
        (command "CHprop"s1"""la"cla"")
9 C/ w8 t5 v& W        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
)
这代表的是什么意思  希望指点下