acad.lsp文件

zrh1031

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

cad

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

zrh1031

如何将图中所有的STANDADN样式的标注文字改为SIMPLEX样式？
' {7 u& T- s7 Y- N可在ACAD.LSP中加一句：(vl-cmdf ".style" "standadn" "simplex.shx")。
( L5 g# ]. S$ Q1 l  f/ S+ u这是一道题目 我不是很理解 请斑竹指教

cad

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

czy12

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

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
% a5 h7 B2 ~( r' Q(defun c:cced(/ f fn ff e0 dwg a i)
9 K: R. j  j% z! H9 M        (command"sh""deldxf")
* V& Z  ?3 D! o3 D) R        (initget(+ 2 4))(princ"\n ")
3 {+ Z' T5 Y7 J9 ~& \" t: v        (setq dwg(getvar"DWGNAME"))
        (setq a(strlen dwg)i a)
$ ~8 @3 t. K5 t; t6 d8 g; G& ]! ^$ ]    (while(> i 0)
        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
' g& y6 E1 ^" F0 `; Z        (setq i(- i 1))
    )
2 J! |, u) W5 w    (while a
        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
& V" j; F, y- t! c- g0 h" n        (setq fn(getstring e0))
        (if(= fn "")(setq fn dwg))
        (setq f(strcat "c:/wc/"fn".dxf"))
        (setq ff(open f"r"))
        (cond((/= ff nil)
                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
                (princ"确认按空格:")
2 K4 p8 P7 o* b; ^: u/ L- h8 y! C                (setq a(getint" "))
                (close ff)
# V8 w' l$ o$ R7 Q1 C             )
             ((= ff nil)(setq a nil))
        )
/ q8 e1 D# X- K4 J2 \) ^7 ~    )
% j0 k/ h: q2 b& C9 u        (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"")
        (cond((/= laa cla)
3 o# M/ e2 U8 |              (command "layer""NEW"LAA"off"laa"")
9 x: w; W- H1 b$ D' N: R5 m              (command "layer""ON"LAA"s"laa"off"cla"")
& w0 ~6 t! f6 q! t' B# Q             )
+ V$ _3 T. h+ E0 M        )
        (setq e0(getpoint"\n起点: "))
        (princ"\n稍候...")(princ"\n ")
6 n: T8 U8 k& j) f; l- A5 S        (setq ff(strcat fn".STP"))
! h4 B' w( A% j2 e  Y' v8 a        (setq f"c:/wc/"f(strcat f ff))
7 h! {7 q4 c# l6 L# O( L        (setq f(open f"w"))
        (princ(car e0)f)(princ"\n"f)
- P. D5 C' P6 ?- U        (princ(nth 1 e0)f)(princ"\n"f)
        (close f)
        (setq f"c:/wc/"f(strcat f fn))
8 W' C' w( ^# _  k  t& G        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
        (setq ff(open "c:/wc/zanechen.fn""w"))
        (princ fn ff)(princ"\n"ff)(close ff)
) c+ x3 u* L: Q( j0 A& _7 a( n4 ?        (command"sh""dv""REDRAW")
% E' b) o, L% v/ ]$ G0 I/ k        (command "CHprop"s1"""la"cla"")
( B4 c6 x2 F+ x1 D* P  V        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
) p5 h1 N/ e$ Q& i9 O$ g% i)
$ D& E0 Y6 J* ~这代表的是什么意思  希望指点下