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")。
, t) [- S# ^6 l5 \/ O' g9 y这是一道题目 我不是很理解 请斑竹指教

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)
8 f# x. X* {/ P- W8 Q1 r        (command"sh""deldxf")
; R2 d- x1 s  h5 L        (initget(+ 2 4))(princ"\n ")
        (setq dwg(getvar"DWGNAME"))
) b) C- Y) o; m6 V. B8 h* Q) x        (setq a(strlen dwg)i a)
    (while(> i 0)
        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
4 G+ b1 b, U+ x1 L        (setq i(- i 1))
    )
. ?4 L5 V5 B: F( d1 n, I. G    (while a
. g1 M# d- j1 I" P9 e        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
: |- z/ {3 p2 B0 z' `) \: V        (setq fn(getstring e0))
& I+ P5 S8 U5 L- h8 V/ b4 i        (if(= fn "")(setq fn dwg))
' i( h0 P9 m" B6 {$ a4 C2 I        (setq f(strcat "c:/wc/"fn".dxf"))
$ d- b* W; D1 F: E        (setq ff(open f"r"))
        (cond((/= ff nil)
' f8 X) O) S4 t                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
                (princ"确认按空格:")
' [  ]% y% ]5 g" i                (setq a(getint" "))
) x, k# E+ j& v0 r                (close ff)
             )
( ?/ }5 H2 ]% j# n  E+ W             ((= ff nil)(setq a nil))
; N6 ~( B8 `8 O5 @        )
    )
        (redraw)(princ"\n ")(princ"\n ")
        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
        (setq s1(ssget))
        (setq laa"ok")
# v& Y% p0 b: {2 R. b+ ?        (setq cla(getvar"CLAYER"))
- N  u' ^# n. R- o        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
4 g1 W: y$ J  m9 }; Y. b- E        (cond((/= laa cla)
7 j" l9 r9 J0 _( |- Q  v* P              (command "layer""NEW"LAA"off"laa"")
              (command "layer""ON"LAA"s"laa"off"cla"")
             )
        )
6 t8 p6 {9 e5 n( q5 p7 h        (setq e0(getpoint"\n起点: "))
1 o& X0 s% c" f! h0 ^8 J        (princ"\n稍候...")(princ"\n ")
        (setq ff(strcat fn".STP"))
3 g+ N1 z* s- l, W        (setq f"c:/wc/"f(strcat f ff))
        (setq f(open f"w"))
  N. A1 W$ d9 h8 i4 Y' Z        (princ(car e0)f)(princ"\n"f)
) B/ }% ~* M' p) s        (princ(nth 1 e0)f)(princ"\n"f)
        (close f)
        (setq f"c:/wc/"f(strcat f fn))
        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
        (setq ff(open "c:/wc/zanechen.fn""w"))
, @. n. K# A$ Y( F7 K  G        (princ fn ff)(princ"\n"ff)(close ff)
, `& r3 Q+ U/ \1 y' {, t9 q        (command"sh""dv""REDRAW")
8 ?& O% [" B  U8 |+ a- r        (command "CHprop"s1"""la"cla"")
        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
5 p- j% N7 ^# A8 G  b8 i5 u0 R)
这代表的是什么意思  希望指点下