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)
/ V- N2 d, @7 y        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
        (setq dwg(getvar"DWGNAME"))
; W, w( V0 `# g6 n        (setq a(strlen dwg)i a)
  u) R' T7 F, ]8 `' N    (while(> i 0)
  d' W4 a" i  C# T) N        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
        (setq i(- i 1))
. [* c3 W, `0 T9 m' ?    )
    (while a
+ w/ j: X8 C1 j; J7 w$ B% O: S        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
        (setq fn(getstring e0))
5 D0 @7 \  {1 r9 n/ o& q$ q        (if(= fn "")(setq fn dwg))
1 W/ a( K7 L% `) Q: {7 h% _. K        (setq f(strcat "c:/wc/"fn".dxf"))
        (setq ff(open f"r"))
, n( j- e/ J' F        (cond((/= ff nil)
5 ^) t. ^8 _% M* r, K                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
                (princ"确认按空格:")
, H: G8 n: ?/ B5 ]8 f2 Y* j* W                (setq a(getint" "))
                (close ff)
, e7 Q! x9 \- H+ y- f# G. G4 Q             )
! b, e( G- x, U' K9 x1 V7 w  G             ((= ff nil)(setq a nil))
0 ?% x6 u4 P4 _0 ^4 Z' h4 v) T        )
' q- h* k5 C1 }+ w. s5 e    )
; ?6 J9 L' u" y4 n: r$ Z+ A        (redraw)(princ"\n ")(princ"\n ")
. L) @2 m1 U- N  @+ _0 A8 Y6 x        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
        (setq s1(ssget))
        (setq laa"ok")
/ c+ L7 ^% Q& ]. ~# E/ F        (setq cla(getvar"CLAYER"))
2 Z6 k. H# `6 S0 z% S6 ]        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
3 w$ F& a" ^+ p        (command "CHprop"s1"""la"laa"")
4 B! S1 D/ ?! u% D        (cond((/= laa cla)
              (command "layer""NEW"LAA"off"laa"")
              (command "layer""ON"LAA"s"laa"off"cla"")
5 s+ w+ j( C/ O% Z; j! {& O             )
        )
" O( P- \9 e- A0 h0 g$ l        (setq e0(getpoint"\n起点: "))
. r% r  Q4 b$ ?# g; r! b# u        (princ"\n稍候...")(princ"\n ")
        (setq ff(strcat fn".STP"))
        (setq f"c:/wc/"f(strcat f ff))
        (setq f(open f"w"))
' X" ~& b, P- k        (princ(car e0)f)(princ"\n"f)
, W( }, y" u4 X1 H& {# I        (princ(nth 1 e0)f)(princ"\n"f)
, v3 s- L1 J# e" d        (close f)
4 P4 W3 }! g- P2 e        (setq f"c:/wc/"f(strcat f fn))
        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
$ p7 s7 e6 J% `/ D# c        (setq ff(open "c:/wc/zanechen.fn""w"))
8 _1 D$ w6 s; Z, @        (princ fn ff)(princ"\n"ff)(close ff)
/ \6 {- t) |" r4 _' N' A/ r6 i        (command"sh""dv""REDRAW")
        (command "CHprop"s1"""la"cla"")
9 `* N9 |) Z7 B        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
)
这代表的是什么意思  希望指点下