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")。
: V7 M( u" V; e% N, u4 }这是一道题目 我不是很理解 请斑竹指教

cad

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

czy12

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

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
(defun c:cced(/ f fn ff e0 dwg a i)
2 Y0 g/ W; |* c        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
5 U% P3 n, a: `- ^/ R' }        (setq dwg(getvar"DWGNAME"))
, [$ O9 U$ t, J: z9 C        (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))
        (setq i(- i 1))
    )
    (while a
        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
( D8 x" b- g9 c( q        (setq fn(getstring e0))
; @  w) Q$ Z8 ?- B. y/ ~* `        (if(= fn "")(setq fn dwg))
) R$ v7 B3 u, T0 C3 l9 s1 n        (setq f(strcat "c:/wc/"fn".dxf"))
4 _% \: \' D  a% l9 I        (setq ff(open f"r"))
        (cond((/= ff nil)
- d' Z8 }# K. a9 O8 ^8 }6 C2 ]                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
- y9 ?" _; S/ E5 M/ Z+ Z' B$ @                (princ"确认按空格:")
                (setq a(getint" "))
+ ?' M. V6 G* F                (close ff)
             )
* w; Z1 q3 t' M: C             ((= ff nil)(setq a nil))
, d& i. D& J/ @0 o  Q        )
    )
1 ^7 s, \- K- u7 E* m        (redraw)(princ"\n ")(princ"\n ")
7 C2 C1 _4 M8 Y! s9 Y7 u/ k        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
6 x# O: W/ ]- H( V& t. T7 i        (setq s1(ssget))
/ \* ^' b& u  M+ |7 B        (setq laa"ok")
        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
, |/ {# K+ v, A0 q: G7 A$ G  }        (command "CHprop"s1"""la"laa"")
        (cond((/= laa cla)
              (command "layer""NEW"LAA"off"laa"")
              (command "layer""ON"LAA"s"laa"off"cla"")
7 f$ s/ t( S2 `' d5 V             )
2 B+ i3 G% }7 Z) J, s- M( `        )
6 l! b) ^' h, `        (setq e0(getpoint"\n起点: "))
' |5 \+ w8 B! m4 D' G. [& w0 E        (princ"\n稍候...")(princ"\n ")
% }  ]$ Y1 d( l- m3 K- R* p- P        (setq ff(strcat fn".STP"))
        (setq f"c:/wc/"f(strcat f ff))
  H; ^1 T3 h( }7 l: Y        (setq f(open f"w"))
        (princ(car e0)f)(princ"\n"f)
        (princ(nth 1 e0)f)(princ"\n"f)
        (close f)
        (setq f"c:/wc/"f(strcat f fn))
& o2 g( x+ ]0 g' K- n! D8 c        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
' B  S0 |4 t. \        (setq ff(open "c:/wc/zanechen.fn""w"))
        (princ fn ff)(princ"\n"ff)(close ff)
        (command"sh""dv""REDRAW")
9 a: \% p% M  N        (command "CHprop"s1"""la"cla"")
0 k( U2 P! `( o' D$ x( A        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
7 |& c3 s/ _4 P' u) @! R  I)
这代表的是什么意思  希望指点下