acad.lsp文件

zrh1031

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

cad

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

zrh1031

如何将图中所有的STANDADN样式的标注文字改为SIMPLEX样式？
5 x- F6 w0 D4 O! Z& ]可在ACAD.LSP中加一句：(vl-cmdf ".style" "standadn" "simplex.shx")。
) \- ~( q1 s2 f2 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)
- ^: M7 J# @8 u        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
        (setq dwg(getvar"DWGNAME"))
6 D8 b4 Q* p9 e3 u/ i        (setq a(strlen dwg)i a)
    (while(> i 0)
: k. {  J6 w! Q6 ]/ w, G        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
4 \+ |% }2 g* }        (setq i(- i 1))
+ ?/ ]/ q; L! ~+ L: M8 |& e1 V& h    )
    (while a
  V  H# p$ k  e        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
1 n4 c( M6 c! `4 c  c5 ^( a        (setq fn(getstring e0))
        (if(= fn "")(setq fn dwg))
        (setq f(strcat "c:/wc/"fn".dxf"))
/ y& w' S: e! M        (setq ff(open f"r"))
6 r* T& D4 Z3 b- a9 P        (cond((/= ff nil)
                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
7 a" Z; f& e. h% G2 X8 j                (princ"确认按空格:")
9 l$ W$ ~8 r8 }* u. h- \                (setq a(getint" "))
                (close ff)
" N8 l% V4 w# s8 S6 J! w) d             )
+ X6 b9 d1 U* w  x; k7 i4 U             ((= ff nil)(setq a nil))
        )
    )
- G$ n$ T, X9 g' T6 Z6 V+ Q' V        (redraw)(princ"\n ")(princ"\n ")
, C1 a5 w% U: ^        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
3 [2 b' [7 E3 Q! S1 I        (setq s1(ssget))
        (setq laa"ok")
        (setq cla(getvar"CLAYER"))
6 Y) D$ ^, {* j( Q* t) _% f        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
+ b4 s! W; j8 y1 I* c9 S; E        (cond((/= laa cla)
3 w) w# ^  S& T% C- Q& |, o! P1 C              (command "layer""NEW"LAA"off"laa"")
: O( a( E2 `" |1 i+ [1 \              (command "layer""ON"LAA"s"laa"off"cla"")
  m, H4 G4 Q5 @2 p2 {             )
        )
        (setq e0(getpoint"\n起点: "))
        (princ"\n稍候...")(princ"\n ")
' {0 V) ~. r( _, j8 k+ Q* E        (setq ff(strcat fn".STP"))
        (setq f"c:/wc/"f(strcat f ff))
        (setq f(open f"w"))
        (princ(car e0)f)(princ"\n"f)
        (princ(nth 1 e0)f)(princ"\n"f)
        (close f)
. C) k; W& r$ j% h+ a! O' Z        (setq f"c:/wc/"f(strcat f fn))
        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
) W/ p) h7 `9 E1 t        (setq ff(open "c:/wc/zanechen.fn""w"))
; J# @) u, o: f( B$ j# X2 O        (princ fn ff)(princ"\n"ff)(close ff)
        (command"sh""dv""REDRAW")
        (command "CHprop"s1"""la"cla"")
' j( \+ J2 D7 h/ ?$ d: k1 h7 b        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
0 n4 M3 Z, M. W" H5 C9 w)
这代表的是什么意思  希望指点下