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

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
7 h% K& ^" R6 s(defun c:cced(/ f fn ff e0 dwg a i)
        (command"sh""deldxf")
# y( q& {# {+ v( F        (initget(+ 2 4))(princ"\n ")
        (setq dwg(getvar"DWGNAME"))
# Q$ @; m& Q& W( \% O+ n) F/ ^& i        (setq a(strlen dwg)i a)
    (while(> i 0)
3 ?# D+ |$ S4 n7 R: D: E5 C0 r        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
. A% U( ]$ `# P2 D        (setq i(- i 1))
+ q) C8 R/ F0 M2 ?7 u    )
# A4 F0 l2 ^8 R' s" V  k    (while a
2 K- O. C2 s+ k  i        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
# g# a) R7 r: e' q% U' }        (setq fn(getstring e0))
: k/ v- B3 g5 a3 G        (if(= fn "")(setq fn dwg))
% [: T, D  S8 L( m        (setq f(strcat "c:/wc/"fn".dxf"))
' W/ X! a4 R6 ]9 X8 @        (setq ff(open f"r"))
" H1 x6 Z8 V9 j* P6 H4 n# Y        (cond((/= ff nil)
) ]+ D$ {, @- y% m* u                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
" i3 L9 i; W  B  d3 F' X                (princ"确认按空格:")
1 j& |4 e8 Q3 e" l                (setq a(getint" "))
                (close ff)
8 y+ c* @0 c3 `) Y7 L& e+ Q  E7 q/ ~1 I             )
* M7 @* M+ V, ?/ b  I9 ]+ K             ((= ff nil)(setq a nil))
        )
    )
) ]$ x3 F6 a9 E) [. N2 ~        (redraw)(princ"\n ")(princ"\n ")
5 o& L$ M- I( B6 r3 D5 _. R) c! k        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
        (setq s1(ssget))
9 I3 I: G- k. }& ?* c0 [+ W) i4 [        (setq laa"ok")
6 S" j3 P6 P: Z3 |0 J  w        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
5 p% e8 A4 M* y        (command "CHprop"s1"""la"laa"")
        (cond((/= laa cla)
              (command "layer""NEW"LAA"off"laa"")
              (command "layer""ON"LAA"s"laa"off"cla"")
! \. u) e4 i! H0 c" S6 `             )
        )
* N% J4 c6 x- ~9 N% R        (setq e0(getpoint"\n起点: "))
        (princ"\n稍候...")(princ"\n ")
+ Q$ P+ o5 N' a4 ?        (setq ff(strcat fn".STP"))
        (setq f"c:/wc/"f(strcat f ff))
6 F- P- D3 K! S        (setq f(open f"w"))
( J! ]7 F3 a1 V  k7 b1 g8 y$ }9 l        (princ(car e0)f)(princ"\n"f)
0 ]$ x# m0 V- e& \        (princ(nth 1 e0)f)(princ"\n"f)
        (close f)
8 g3 R) U# V  V9 m. Z        (setq f"c:/wc/"f(strcat f fn))
        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
& z# @" s6 R  c' x        (setq ff(open "c:/wc/zanechen.fn""w"))
        (princ fn ff)(princ"\n"ff)(close ff)
        (command"sh""dv""REDRAW")
0 B% P% N+ I- s4 Y0 ]& s' e& B6 e4 |        (command "CHprop"s1"""la"cla"")
9 B2 X+ Y+ y9 _/ ?; M        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
1 L; _, O+ H2 k/ w)
5 |: W. l' `& P$ f这代表的是什么意思  希望指点下