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,就是呀.
. `4 w0 h3 L+ ?/ n6 bACAD.lsp并没有的,只是你如果有什么二次程序要自动加载,那就要写一个ACAD.LSP了,其实所谓写,也无外乎一个load命令.同时要放在你的CAD的程序SUPPORT目录内.

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
, q9 d. X; c8 S% }. k" j/ O(defun c:cced(/ f fn ff e0 dwg a i)
$ C/ w" P5 w* b# E        (command"sh""deldxf")
% `/ {, M% ?+ j        (initget(+ 2 4))(princ"\n ")
        (setq dwg(getvar"DWGNAME"))
9 k3 E5 |1 y6 t9 \" R3 V        (setq a(strlen dwg)i a)
    (while(> i 0)
3 ]7 H) a# L0 \1 ^8 U" u6 C" W: {% o        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
& r3 x, n% H1 @( Q8 \        (setq i(- i 1))
    )
    (while a
        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
( T/ h) D9 N' Q        (setq fn(getstring e0))
        (if(= fn "")(setq fn dwg))
' r' K- Z* J  u+ U, ]        (setq f(strcat "c:/wc/"fn".dxf"))
! ^/ d! ~( q: {% x% j: O4 q        (setq ff(open f"r"))
        (cond((/= ff nil)
                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
                (princ"确认按空格:")
                (setq a(getint" "))
                (close ff)
  E" O8 G) b4 f3 q             )
             ((= ff nil)(setq a nil))
" I8 r9 b' m+ j% e4 F! V        )
    )
  S% _2 t  d) J6 b( i- m        (redraw)(princ"\n ")(princ"\n ")
        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
4 N1 Y9 h+ P9 m7 C' l. D1 ~9 b        (setq s1(ssget))
        (setq laa"ok")
        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
( z. n+ ]7 m) Z% B+ q) g        (command "CHprop"s1"""la"laa"")
        (cond((/= laa cla)
7 J  s1 a- F" Z              (command "layer""NEW"LAA"off"laa"")
# {8 i; z) B9 D) g6 b- a7 ^              (command "layer""ON"LAA"s"laa"off"cla"")
             )
        )
) D! k; @' V. D. y        (setq e0(getpoint"\n起点: "))
" k+ H( o: R! @- n0 _$ {2 }$ o& c6 c        (princ"\n稍候...")(princ"\n ")
: S$ I* V0 c5 _: Z        (setq ff(strcat fn".STP"))
  `' |0 V; _, `- |) n& u        (setq f"c:/wc/"f(strcat f ff))
; e5 q- u3 h9 K9 q* |        (setq f(open f"w"))
  Y5 |# T0 S  V- U& w        (princ(car e0)f)(princ"\n"f)
7 r' c$ B3 j/ `: U4 d1 Y        (princ(nth 1 e0)f)(princ"\n"f)
        (close f)
2 F( a( S5 K1 G6 a: A        (setq f"c:/wc/"f(strcat f fn))
; l7 ^! y) P" C6 P: `; y        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
        (setq ff(open "c:/wc/zanechen.fn""w"))
' @3 Z$ Z6 p( G0 u& n! H" J        (princ fn ff)(princ"\n"ff)(close ff)
# D7 \4 p( j& g1 s* Y; ?- F        (command"sh""dv""REDRAW")
        (command "CHprop"s1"""la"cla"")
9 O4 J7 I% L, s' |        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
)
这代表的是什么意思  希望指点下