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该如何书写格式是怎么样的比如
(defun c:cced(/ f fn ff e0 dwg a i)
        (command"sh""deldxf")
        (initget(+ 2 4))(princ"\n ")
        (setq dwg(getvar"DWGNAME"))
* N  o# W+ P- g: N3 T% E4 j        (setq a(strlen dwg)i a)
% {& B6 @5 A" a  ^. |# F. }: T    (while(> i 0)
        (if(= (substr dwg i 1)"\\")(setq dwg(substr dwg(+ i 1)(+ (- a i)1))i 1))
, r  N9 X5 @+ w7 m+ L, P        (setq i(- i 1))
    )
$ A8 H* l2 k) V. f    (while a
8 r5 G! B( O' s9 A( f1 W) n" S        (setq e0(strcat"\n请输入线切割文件名,不支持长文件名:<"">"))
        (setq fn(getstring e0))
. {! j7 V" z/ W/ }  M        (if(= fn "")(setq fn dwg))
. i# U: a/ m% g4 v+ I% \        (setq f(strcat "c:/wc/"fn".dxf"))
& W% d" G3 l! _! f        (setq ff(open f"r"))
: v$ G4 ?$ i  P# z        (cond((/= ff nil)
; X* @5 ~2 d! V  |1 j7 F% ^                (princ"\n")(princ" 有同名文件")(princ" 要覆盖它吗?")
                (princ"确认按空格:")
                (setq a(getint" "))
                (close ff)
             )
             ((= ff nil)(setq a nil))
. O1 k1 L+ i& _1 `) s        )
* o  w% R$ G) }' E2 n: b    )
        (redraw)(princ"\n ")(princ"\n ")
        (princ "\n选切割曲线，目标不能为多义线或样条曲线，如为多义线请炸开，样条曲线请转换成弧或直线:")
' |& A0 I2 j1 ?        (setq s1(ssget))
5 }9 m1 k. Q( `$ _1 Z8 W5 ^- L        (setq laa"ok")
' U! ?; j% o2 P) g6 W# L; R1 }        (setq cla(getvar"CLAYER"))
        (if(/= laa cla)(command "layer""NEW"LAA"off"laa""))
        (command "CHprop"s1"""la"laa"")
) X, Q3 n6 \1 d5 T& Q9 m/ m        (cond((/= laa cla)
              (command "layer""NEW"LAA"off"laa"")
4 i+ m: K# v5 E& @) ~              (command "layer""ON"LAA"s"laa"off"cla"")
7 G6 e$ e) j1 r) ^, O: v             )
        )
. e3 l  }  ~8 Z9 z3 S        (setq e0(getpoint"\n起点: "))
, [/ H% t3 B+ f, T. H$ u/ P        (princ"\n稍候...")(princ"\n ")
        (setq ff(strcat fn".STP"))
( K- h" m: J% ~2 n# [        (setq f"c:/wc/"f(strcat f ff))
        (setq f(open f"w"))
        (princ(car e0)f)(princ"\n"f)
3 J' s% \* _: e- D8 ?# r. I        (princ(nth 1 e0)f)(princ"\n"f)
        (close f)
# A" s- y' i/ u6 P: k2 m" N, l        (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)
  A' k8 [+ K6 z8 l' S1 Y- ?        (command"sh""dv""REDRAW")
        (command "CHprop"s1"""la"cla"")
        (if(/= laa cla)(command "layer""ON"cla"s"cla"off"laa""))
! z2 g, ^9 \0 v( k; H. b4 h2 s0 N2 I. s)
4 D( B+ R6 n  N这代表的是什么意思  希望指点下