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")。
: g7 G' v# E+ t& O4 x这是一道题目 我不是很理解 请斑竹指教

cad

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

czy12

HEHE,就是呀.
8 ~7 M% b3 X1 I2 G2 ?5 x* j7 \ACAD.lsp并没有的,只是你如果有什么二次程序要自动加载,那就要写一个ACAD.LSP了,其实所谓写,也无外乎一个load命令.同时要放在你的CAD的程序SUPPORT目录内.

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
. c* I" w' h# f8 Q6 \! d5 i; ]$ y% Y(defun c:cced(/ f fn ff e0 dwg a i)
. @3 @) B3 Q- l$ F1 i) h% |' j- G        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
3 B( S0 U( G- S; M5 j$ Y! p5 E        (setq dwg(getvar"DWGNAME"))
& K9 ^8 [* {+ [        (setq a(strlen dwg)i a)
8 c. w0 t" _$ @) c6 g( }    (while(> i 0)
        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
7 q. Y, T! A( M. t5 j        (setq i(- i 1))
" r. S" C& `$ E: k/ B- K    )
6 O) Z5 R' e% `6 _4 v$ E    (while a
9 d/ X: B( j- Z5 M, n        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
        (setq fn(getstring e0))
        (if(= fn "")(setq fn dwg))
$ V5 {& A1 u5 Z& K+ o        (setq f(strcat "c:/wc/"fn".dxf"))
        (setq ff(open f"r"))
        (cond((/= ff nil)
: s, W8 \3 P0 D8 x. C0 O0 j; H                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
                (princ"确认按空格:")
                (setq a(getint" "))
                (close ff)
: G. q0 o* b% _: J* p% [             )
9 u! R& J' i& a5 f0 Q) ^             ((= ff nil)(setq a nil))
: v) x, F% c$ s% [/ X        )
+ a/ Z) [  X% I$ D    )
        (redraw)(princ"\n ")(princ"\n ")
        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
        (setq s1(ssget))
8 S- m$ F2 G0 r+ L9 [, U) a: D        (setq laa"ok")
* B  |/ P5 ^  c8 v+ M- `        (setq cla(getvar"CLAYER"))
  c2 I  X2 }1 b# X+ \, H" x        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
+ I0 C) ]4 P: g! j* w' g' S8 N        (cond((/= laa cla)
- s# F1 R, Q6 ~- H              (command "layer""NEW"LAA"off"laa"")
8 X3 Y, e) Y/ _1 n& w5 S              (command "layer""ON"LAA"s"laa"off"cla"")
             )
! h" x) N7 Q& Q9 F2 r/ h+ s3 }% |        )
        (setq e0(getpoint"\n起点: "))
0 M5 l6 P# Q+ E" M+ l- {4 V        (princ"\n稍候...")(princ"\n ")
- N, |& v+ N7 T+ F2 L9 a( n5 ?        (setq ff(strcat fn".STP"))
) J9 D! P1 o7 J8 t" w. u        (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)
8 Y# m. l/ u, {3 b6 N: g        (close f)
/ Y4 e: Z  S& ^, I7 @6 @- Y1 E9 W+ }        (setq f"c:/wc/"f(strcat f fn))
        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
        (setq ff(open "c:/wc/zanechen.fn""w"))
        (princ fn ff)(princ"\n"ff)(close ff)
        (command"sh""dv""REDRAW")
" z9 e( d4 Z: C6 E. i" r9 ]        (command "CHprop"s1"""la"cla"")
        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
; i, l% ?6 Z& K, m)
, g, V% V  e6 l. v/ i8 U: F这代表的是什么意思  希望指点下