acad.lsp文件

zrh1031

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

cad

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

zrh1031

如何将图中所有的STANDADN样式的标注文字改为SIMPLEX样式？
* j% i. N  \* p! b6 f( L2 @$ e. b可在ACAD.LSP中加一句：(vl-cmdf ".style" "standadn" "simplex.shx")。
9 d/ L: x9 g2 \; O- J+ T  Q1 ?这是一道题目 我不是很理解 请斑竹指教

cad

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

czy12

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

zrh1031

谢谢 我会慢慢去学

handits

我的有acad.lsp  但怎么没人说的有这个LSP该如何书写格式是怎么样的比如
( K7 ~0 l# w+ j7 p6 Y! w(defun c:cced(/ f fn ff e0 dwg a i)
5 I$ N: y1 m$ `( z6 I2 j, n0 O        (command"sh""deldxf")
6 \& A$ ]& j  z7 |        (initget(+ 2 4))(princ"\n ")
! m/ \( r' [) y& S! n9 q        (setq dwg(getvar"DWGNAME"))
7 Z* `/ n& Z: P" \; A7 ^8 b        (setq a(strlen dwg)i a)
+ g3 r" `0 v  _    (while(> i 0)
5 t( A* l0 h1 {: ?4 c' {; N0 Z        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
2 r% i% }) W$ ~; |! h        (setq i(- i 1))
    )
    (while a
        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
* `+ b3 K! S5 j" U) j% }        (setq fn(getstring e0))
# G! L& F  b  |3 X9 \7 }        (if(= fn "")(setq fn dwg))
        (setq f(strcat "c:/wc/"fn".dxf"))
: q' D- Y6 y% }% k4 `8 y        (setq ff(open f"r"))
  {# ?$ |7 m5 I! Z- C  Y        (cond((/= ff nil)
: |' d  \) K9 t9 ^                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
                (princ"确认按空格:")
0 u1 R/ Z8 m* e                (setq a(getint" "))
                (close ff)
             )
             ((= ff nil)(setq a nil))
        )
    )
0 m9 h1 o8 ^7 P( @. t        (redraw)(princ"\n ")(princ"\n ")
9 v1 D, w# t6 }3 a) ]: a) ?        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
- N( K- f* L* b        (setq s1(ssget))
9 u, O- u8 R( g        (setq laa"ok")
        (setq cla(getvar"CLAYER"))
; O/ @8 {! m8 A; j5 I        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
2 J* I* S6 V) r% M; u        (command "CHprop"s1"""la"laa"")
) a2 [. e3 g: P) H2 F4 {2 c9 g( S/ y        (cond((/= laa cla)
              (command "layer""NEW"LAA"off"laa"")
              (command "layer""ON"LAA"s"laa"off"cla"")
; o# h/ J! I! P             )
        )
5 P! ^! {9 A/ k  P- I) b' {9 y        (setq e0(getpoint"\n起点: "))
& p+ d4 P9 ]6 I+ ~% M/ S% z  G        (princ"\n稍候...")(princ"\n ")
# ^0 Y* s: d, \/ ^        (setq ff(strcat fn".STP"))
& k2 O& ?& j; u. Z) K) i        (setq f"c:/wc/"f(strcat f ff))
, ~; q- t( y. V  R        (setq f(open f"w"))
6 c: U9 Z( e% n        (princ(car e0)f)(princ"\n"f)
# Q! `; y$ \& C+ X" O, r        (princ(nth 1 e0)f)(princ"\n"f)
        (close f)
: _5 g: `$ N" S        (setq f"c:/wc/"f(strcat f fn))
0 f  O& s2 U1 J6 e# W9 r        (command"dxfout"f 8)(princ"\n ")(princ"\n ")
        (setq ff(open "c:/wc/zanechen.fn""w"))
        (princ fn ff)(princ"\n"ff)(close ff)
7 X( N5 r5 \& a. f- r        (command"sh""dv""REDRAW")
1 Y$ X. }4 v$ l: f* ^        (command "CHprop"s1"""la"cla"")
        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
1 I; Z+ l  {0 I! B6 m& })
这代表的是什么意思  希望指点下