acad.lsp文件

zrh1031

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

cad

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

zrh1031

如何将图中所有的STANDADN样式的标注文字改为SIMPLEX样式？
6 b  {, r% f' X# e2 u可在ACAD.LSP中加一句：(vl-cmdf ".style" "standadn" "simplex.shx")。
这是一道题目 我不是很理解 请斑竹指教

cad

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

czy12

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

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
(defun c:cced(/ f fn ff e0 dwg a i)
% e  c; n! e; `6 p" M" m9 G        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
' ~$ h9 ~9 y# W+ B5 k2 |        (setq dwg(getvar"DWGNAME"))
! y/ N. Q" }6 S0 f        (setq a(strlen dwg)i a)
4 z- b$ t7 I7 ]7 G    (while(> i 0)
$ q5 r: D8 W4 x1 W$ u        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
& z! _& K0 r9 w        (setq i(- i 1))
" k6 W1 W, `) m    )
    (while a
6 q2 b4 s2 `) S) }        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
% K" B6 h4 z  j2 U        (setq fn(getstring e0))
        (if(= fn "")(setq fn dwg))
6 V9 X& C% y: r# K& m: Z. `        (setq f(strcat "c:/wc/"fn".dxf"))
" c' k% [* \- `5 o0 R. h        (setq ff(open f"r"))
% r* G6 G  T* s4 w        (cond((/= ff nil)
                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
                (princ"确认按空格:")
                (setq a(getint" "))
* t, \& W4 R0 L& J& x                (close ff)
( Q8 m% b9 w4 d( x$ |             )
             ((= ff nil)(setq a nil))
9 d) h. E; W, C4 }2 n8 b- J        )
/ V0 P) `, R7 _    )
        (redraw)(princ"\n ")(princ"\n ")
        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
        (setq s1(ssget))
        (setq laa"ok")
        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
  [0 X/ i" u8 J        (cond((/= laa cla)
8 E% y! d* Z) Y6 \% b% f/ _              (command "layer""NEW"LAA"off"laa"")
; z- s4 M/ Y6 _, B. n5 y. |              (command "layer""ON"LAA"s"laa"off"cla"")
             )
        )
5 ^; A! j& I/ q2 |* H4 f* }4 g# F" `        (setq e0(getpoint"\n起点: "))
% F) D9 y* R5 Q& G2 U        (princ"\n稍候...")(princ"\n ")
  F* R: \8 w5 `) ^" e! m) R" D9 A1 o        (setq ff(strcat fn".STP"))
        (setq f"c:/wc/"f(strcat f ff))
, A% f6 B4 ]' G% m: N( |/ b0 V        (setq f(open f"w"))
2 f- E- X# w* w        (princ(car e0)f)(princ"\n"f)
        (princ(nth 1 e0)f)(princ"\n"f)
6 E  e  B2 {5 g0 g; S3 j' ]0 k        (close f)
        (setq f"c:/wc/"f(strcat f fn))
- r' R3 D# V1 B) d" C& Y        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
        (setq ff(open "c:/wc/zanechen.fn""w"))
" G6 J- A1 c% Y* C, V( t) O        (princ fn ff)(princ"\n"ff)(close ff)
        (command"sh""dv""REDRAW")
. M3 S" ^2 O# m+ R- w% R# B' y        (command "CHprop"s1"""la"cla"")
1 v# B6 u7 F% ~( n3 C* `2 ~; }6 h        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
)
4 F3 i* T( W. `- G! |0 {7 }这代表的是什么意思  希望指点下