acad.lsp文件

zrh1031

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

cad

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

zrh1031

如何将图中所有的STANDADN样式的标注文字改为SIMPLEX样式？
$ P. G/ c, t8 u. I) G5 B5 q可在ACAD.LSP中加一句：(vl-cmdf ".style" "standadn" "simplex.shx")。
& q1 `; n) ~6 B0 T( i  |# t/ }这是一道题目 我不是很理解 请斑竹指教

cad

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

czy12

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

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
1 u0 F7 [' U# c(defun c:cced(/ f fn ff e0 dwg a i)
        (command"sh""deldxf")
4 H, I% \" n- @9 @        (initget(+ 2 4))(princ"\n ")
' i& f" j1 H7 m6 [5 @$ y        (setq dwg(getvar"DWGNAME"))
        (setq a(strlen dwg)i a)
    (while(> i 0)
% ~3 Y; E0 Z4 E4 h% r        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
* R% K* @  R" f, D        (setq i(- i 1))
    )
    (while a
        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
  T' v$ Y. m2 d" H5 T" |1 `        (setq fn(getstring e0))
        (if(= fn "")(setq fn dwg))
9 ?. W3 i% j+ o        (setq f(strcat "c:/wc/"fn".dxf"))
        (setq ff(open f"r"))
        (cond((/= ff nil)
% C" o$ N4 I% K% B1 _2 G* i: [                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
                (princ"确认按空格:")
* ]. N* b4 G3 {; Q2 s                (setq a(getint" "))
) g1 k- S5 j* N# F& B                (close ff)
             )
             ((= ff nil)(setq a nil))
0 B0 U; {' R5 {& R6 I        )
    )
( P7 `  P8 h4 i$ m        (redraw)(princ"\n ")(princ"\n ")
, e- Q% v& J1 C! C4 W/ Q4 D. j        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
1 R, \/ v1 p7 T3 o5 W# H        (setq s1(ssget))
        (setq laa"ok")
        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
6 @0 |' r: S/ ]; p8 A* u        (command "CHprop"s1"""la"laa"")
; D" e) Z* {0 _7 c( \5 s: ^        (cond((/= laa cla)
! d4 v. q: A% o! T              (command "layer""NEW"LAA"off"laa"")
              (command "layer""ON"LAA"s"laa"off"cla"")
             )
        )
. i& B# A, Q5 J5 _3 w; `        (setq e0(getpoint"\n起点: "))
        (princ"\n稍候...")(princ"\n ")
4 b4 l" d* S/ F7 t        (setq ff(strcat fn".STP"))
0 [0 k( k' R' }        (setq f"c:/wc/"f(strcat f ff))
9 w" S8 d: ^, O1 S; Q: C        (setq f(open f"w"))
        (princ(car e0)f)(princ"\n"f)
        (princ(nth 1 e0)f)(princ"\n"f)
  ^1 c; l2 R5 \* t% _+ {. \        (close f)
        (setq f"c:/wc/"f(strcat f fn))
' V/ ]. d* T9 e+ o0 ^        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
        (setq ff(open "c:/wc/zanechen.fn""w"))
- m6 D, C3 {* x0 q        (princ fn ff)(princ"\n"ff)(close ff)
+ x% e3 z5 v. v; u, D0 }0 |. l  Q        (command"sh""dv""REDRAW")
        (command "CHprop"s1"""la"cla"")
        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
)
3 m3 f" v( b- `5 D; b这代表的是什么意思  希望指点下