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")。
7 ^$ U4 h: ^2 C2 ~4 d) B" ?这是一道题目 我不是很理解 请斑竹指教

cad

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

czy12

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

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
(defun c:cced(/ f fn ff e0 dwg a i)
        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
$ C8 J* N. |* U% I        (setq dwg(getvar"DWGNAME"))
        (setq a(strlen dwg)i a)
    (while(> i 0)
0 E9 P) w' j5 `0 s( X; Y        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
        (setq i(- i 1))
. G& Q+ K. ]. q! x) \9 V; M7 h    )
; z% r4 n( u* {4 |8 x    (while a
        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
$ B/ o9 K) x* Y4 ?        (setq fn(getstring e0))
2 j* k8 M1 ]; E' [        (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"确认按空格:")
                (setq a(getint" "))
2 V% M) p+ m7 }" \2 E1 C                (close ff)
             )
/ O8 {( I: G! w8 {. H: K( {7 @: Y             ((= ff nil)(setq a nil))
        )
4 s% e3 O0 {$ ^- P2 [" C    )
: P7 U4 i& O! b4 R% y* {4 \2 b        (redraw)(princ"\n ")(princ"\n ")
6 l" P# W- e0 l& v        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
9 t( N  e+ f$ }% b! ]/ F        (setq s1(ssget))
        (setq laa"ok")
: b5 R$ v" W: d' N9 m/ a" U        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
        (cond((/= laa cla)
, F$ Q( B" T5 }8 m. x              (command "layer""NEW"LAA"off"laa"")
9 y! x0 y! N3 P  K: g              (command "layer""ON"LAA"s"laa"off"cla"")
! T9 Q  d8 Z+ T3 E             )
: N* p5 o( Y& R2 p3 ~0 T+ {& \        )
        (setq e0(getpoint"\n起点: "))
8 n7 K9 s& `, ~2 w" ~. r+ n        (princ"\n稍候...")(princ"\n ")
        (setq ff(strcat fn".STP"))
. S! m5 D2 n6 B7 w+ ?) T        (setq f"c:/wc/"f(strcat f ff))
1 C9 a: M0 {+ m' f- J0 u' S8 T- H        (setq f(open f"w"))
        (princ(car e0)f)(princ"\n"f)
        (princ(nth 1 e0)f)(princ"\n"f)
) F1 f  F9 p% e, _; @3 V        (close f)
/ P% n' q( D. r' [        (setq f"c:/wc/"f(strcat f fn))
        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
+ H( q0 n) _2 N6 h% E        (setq ff(open "c:/wc/zanechen.fn""w"))
' c- d1 F$ r0 s* P8 L. s        (princ fn ff)(princ"\n"ff)(close ff)
, |: Q6 ^+ Q9 ~1 h: Q0 V$ r& p        (command"sh""dv""REDRAW")
1 N* Q4 d* N; E. E$ H; H! j        (command "CHprop"s1"""la"cla"")
        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
3 i2 s; }3 t8 L0 ]- @/ W)
9 @1 g' N' t! C. e4 ~  ^这代表的是什么意思  希望指点下