acad.lsp文件

zrh1031

我想知道acad.lsp文件存在哪,我在C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2009\R17.2\chs\Support找了好久都没有.请大虾指教!谢谢

cad

你为什么要找这个东西？本来就没有，你去哪里找？

zrh1031

如何将图中所有的STANDADN样式的标注文字改为SIMPLEX样式？
1 }- B7 C- a& G* Y. R/ ?$ I1 [可在ACAD.LSP中加一句：(vl-cmdf ".style" "standadn" "simplex.shx")。
这是一道题目 我不是很理解 请斑竹指教

cad

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

czy12

HEHE,就是呀.
* E) @+ P' n& B) ^) @ACAD.lsp并没有的,只是你如果有什么二次程序要自动加载,那就要写一个ACAD.LSP了,其实所谓写,也无外乎一个load命令.同时要放在你的CAD的程序SUPPORT目录内.

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
(defun c:cced(/ f fn ff e0 dwg a i)
$ S4 t% v9 S/ p8 y/ m        (command"sh""deldxf")
' U, {; j1 o- S0 N        (initget(+ 2 4))(princ"\n ")
5 [, n9 K1 p  F2 Z# H        (setq dwg(getvar"DWGNAME"))
8 S# ^+ O# K1 D! P4 j- r' `! v' x        (setq a(strlen dwg)i a)
% ?, M8 I& R- [8 k' j# w    (while(> i 0)
        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
        (setq i(- i 1))
    )
) @  R  v9 |3 A. h, W# r    (while a
        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
        (setq fn(getstring e0))
        (if(= fn "")(setq fn dwg))
: a% Y$ G6 B% I! l        (setq f(strcat "c:/wc/"fn".dxf"))
        (setq ff(open f"r"))
4 H9 S. z* ^" f( M/ ^  v        (cond((/= ff nil)
7 U1 w4 ~" |* _                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
                (princ"确认按空格:")
                (setq a(getint" "))
/ i) g- g3 h: Q2 l) z# d                (close ff)
             )
& t8 p* R' E5 l4 s0 ]$ [5 h             ((= ff nil)(setq a nil))
. g9 D8 S5 f' L! m5 p        )
2 W1 n: U6 w* d    )
        (redraw)(princ"\n ")(princ"\n ")
        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
0 c; X( q8 V+ l2 M6 m        (setq s1(ssget))
        (setq laa"ok")
" M  [% e$ Y% m        (setq cla(getvar"CLAYER"))
5 q9 o* ~- k" n/ h' I5 g+ R2 D        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
, I% {1 A6 ~. f4 @+ F( Y# N        (cond((/= laa cla)
- H9 ]6 l  {/ I              (command "layer""NEW"LAA"off"laa"")
7 W, u8 H3 k) p4 B% g              (command "layer""ON"LAA"s"laa"off"cla"")
             )
        )
        (setq e0(getpoint"\n起点: "))
& R8 H5 d6 q6 k# R& s9 I$ c+ _        (princ"\n稍候...")(princ"\n ")
        (setq ff(strcat fn".STP"))
8 j& r; p+ v9 i9 a        (setq f"c:/wc/"f(strcat f ff))
6 V1 e1 p" s2 ^# a0 S' ?        (setq f(open f"w"))
/ U7 a5 |, k$ y2 ?        (princ(car e0)f)(princ"\n"f)
% E7 m' |6 X6 I2 x* |        (princ(nth 1 e0)f)(princ"\n"f)
6 M1 b5 Y7 H0 n. t0 [8 @5 G        (close f)
        (setq f"c:/wc/"f(strcat f fn))
. a8 ]* ~- k7 n- Z: r        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
- V7 v$ x, K" B! V4 c, r0 g  d        (setq ff(open "c:/wc/zanechen.fn""w"))
2 T+ P7 a/ A% b- d. N        (princ fn ff)(princ"\n"ff)(close ff)
) j" Z8 Z# f7 K& Q1 }7 d        (command"sh""dv""REDRAW")
3 E) z5 S& ?1 X, j0 B# m2 p5 v        (command "CHprop"s1"""la"cla"")
& S( u! q0 F( n7 W! N8 j: }        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
)
( u" U5 {5 t; N& C这代表的是什么意思  希望指点下