[转贴]：各种LSP网站(希望大家往里加).

eachy · 发表于 2003-3-12 14:27:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www1.harenet.ne.jp/~hanafusa/memo/matrix.htm">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

eachy · 发表于 2003-3-12 22:20:49

最初由 e2002 发布
[B]看不懂 [/B]

是关于矩阵转换的。

看Lsp呀，日文我也看不懂，Lsp还可以。

黄卫文 · 发表于 2003-3-13 14:56:20

EACHY说的没有错，我们要学的不是其它的是别人有编程方法。日文不一定要懂，但里的数学运算和相对应的程序应该是可以理解的。再说日文字有些与中文就是相通的，这确实是一遍不错的文章与数学运算对应容易让人理解。我以前也有过这样的经历：）只看程序不看文字！

aka · 发表于 2003-3-13 15:01:56

日文倒懂一点，可是LSP是什么？

黄卫文 · 发表于 2003-3-13 15:29:05

LISP原是一种人工智能语言，也是一种解释型的编程语言，它应用非常广泛。这是所说的LSP特指AUTOCAD应用程序中所使用的编程，由于其调试方便、编写简单，容易学，很早被AUTODESK公司引进到AUTOCAD中作为一种编程语言，因些奠定了AUTOCAD成为一种广泛应用的程序的基础。采用它来编程能成倍提高你的工作效率，如果你是AUTOCAD的使用者、如果你精通它，会让你有意想不到的工作结果！

eachy · 发表于 2003-3-17 18:06:01

整理了一下上面的程序。

;;===============================================================
;;===============================================================
;;求向量长度 ;
;;(vector_length '(10 10) 返回14.1421
;;(vector_length '(10 10 10) 返回17.3205
;;(distance '(0 0) '(10 10)) 返回14.1421
;;(distance '(0 0) '(10 10 10)返回14.1421
;;(distance '(0 0 0) '(10 10 10))返回17.3205
(defun vector_length (v)
(sqrt (apply '+ (mapcar '(lambda (x) (* x x)) v)))
)
;;矩阵相乘
(defun compose (m1 m2 / n i j tmp ret)
(setq i 0)
(repeat (setq n (length (car m1)))
(setq j 0
tmp nil
)
(repeat n
(setq tmp (append tmp
(list (apply
'+
(mapcar
'*
(nth i m1)
(mapcar '(lambda (x) (nth j x)) m2)
)
)
)
)
j (1+ j)
)
)
(setq ret (append ret (list tmp))
i (1+ i)
)
)
ret
)
;| 返回矩阵的坐标系( X向量 Y向量 Z向量原点)|;
(defun matrix-convert (m / n i ret)
(setq i 0)
(if (equal (expt (setq n (length m)) 2) (length2 m))
(repeat n
(setq ret (append ret (list (mapcar '(lambda (x) (nth i x)) m))) i (1+ i))
)
)
ret
)
;;
;;矩阵基本变换，以（0.0 0.0 0.0）进行变换，用其组合也可以达到一次变换的;
;;的目的
;;
;;矩阵移動
(defun tmatrix_m (p)
(list (list 1. 0. 0. (car p))
(list 0. 1. 0. (cadr p))
(list 0. 0. 1. (caddr p))
'(0. 0. 0. 1.)
)
)
;; 移動;
(defun matrix-move (x y z)
(list (list 1. 0. 0. x)
(list 0. 1. 0. y)
(list 0. 0. 1. z)
(list 0. 0. 0. 1.)
)
)
;; 矩阵绕Z軸旋转
(defun tmatrix_rz (an)
(list (list (cos an) (- (sin an)) 0. 0.)
(list (sin an) (cos an) 0. 0.)
'(0. 0. 1. 0.)
'(0. 0. 0. 1.)
)
)
;; 矩阵缩放
(defun tmatrix_s (s)
(cond
((and (= (type s) 'list) (= (length s) 3))
;X Y Z 不等比缩放，CAD不接受非
(list (list (car s) 0. 0. 0.) ;等比矩阵
(list 0. (cadr s) 0. 0.)
(list 0. 0. (caddr s) 0.)
'(0. 0. 0. 1.)
)
)
((numberp s) ;等比缩放
(list (list s 0. 0. 0.)
(list 0. s 0. 0.)
(list 0. 0. s 0.)
'(0. 0. 0. 1.)
)
)
)
)
;; 縮放
(defun matrix-scale (sx sy sz)
(list (list sx 0. 0. 0.)
(list 0. sy 0. 0.)
(list 0. 0. sz 0.)
(list 0. 0. 0. 1.)
)
)
;; 去表最后元素
(defun !last (l)
(reverse (cdr (reverse l)))
)
;;返回表中要素总数量(包括子表)
(defun length2 (l)
(cond
((not l) 0)
((atom l) 1)
(t (+ (length2 (car l)) (length2 (cdr l))))
)
)
;; 用 a 置換表 l 中第 n 个元素(可以是子表);
;|
用法：(EA:SUBST-N '(0 2) '(99 22) '((1 2 3) 2 55 99 66)) 替换第一个子表第三项
((1 2 (99 22)) 2 55 99 66)
(EA:SUBST-N '(2 1) '(99) '(1 2 (55) 99 66)) 替换第二个子表第二项
(1 2 (55 ((99))) 99 66)
(EA:SUBST-N 2.0 '(99) '(1 2 55 99 66)) 替换第二个原子
(1 2 (99) 99 66)
|;
(defun subst-n (n a l)
(cond
((numberp n)
(if (zerop n)
(append (list a) (cdr l))
(cons (car l) (subst-n (1- n) a (cdr l)))
)
)
((listp n)
(cond
((equal (length n) 1)
(if (zerop (car n))
(append (list a) (cdr l))
(cons (car l) (subst-n (1- (car n)) a (cdr l)))
)
)
((> (length n) 1)
(if (zerop (car n))
(cons (subst-n (cdr n) a (car l)) (cdr l))
(cons (car l)
(subst-n (append (list (1- (car n))) (cdr n)) a (cdr l))
)
)
)
)
)
)
)
;; 矩阵相乘
(defun matrix-compose (m1 m2 / n i j tmp ret)
(if (= (expt (setq n (length m1)) 2)
(length2 m1)
(expt (length m2) 2)
(length2 m2)
);;m1 m2 必须同是4x4矩阵
(progn
(setq i 0)
(repeat n
(setq j 0
tmp nil
)
(repeat n
(setq tmp (append
tmp
(list
(apply '+
(mapcar '*
(nth i m1)
(mapcar '(lambda (x) (nth j x)) m2)
)
)
)
)
j (1+ j)
)
)
(setq ret (append ret (list tmp))
i (1+ i)
)
)
)
)
ret
)
;;求逆矩阵，仅适用3D矩阵
(defun matrix-inverse (m / mm sm rm)
(if (and (equal (setq n (length m)) 4) (equal (length2 m) 16));;4X4矩阵
(progn
(setq m (matrix-convert m)
mm (apply 'matrix-move (mapcar '- (!last (last m))))
m (subst-n 3 '(0. 0. 0. 1.) m)
sm (apply 'matrix-scale
(mapcar '(lambda (x) (/ 1. (ea:vector_length x)))
(mapcar '!last (!last m))
)
)
rm (matrix-compose sm m)
)
(matrix-compose sm (matrix-compose rm mm))
)
)
)

;;=============================================================== 
;;=============================================================== 
;;求向量长度  ; 
;;(vector_length '(10 10) 返回14.1421 
;;(vector_length '(10 10 10) 返回17.3205 
;;(distance '(0 0) '(10 10)) 返回14.1421 
;;(distance '(0 0) '(10 10 10)返回14.1421 
;;(distance '(0 0 0) '(10 10 10))返回17.3205 
(defun vector_length (v) 
  (sqrt (apply '+ (mapcar '(lambda (x) (* x x)) v))) 
) 
;;矩阵相乘 
(defun compose (m1 m2 / n i j tmp ret) 
  (setq i 0) 
  (repeat (setq n (length (car m1))) 
    (setq j   0 
          tmp nil 
    ) 
    (repeat n 
      (setq tmp        (append        tmp 
                        (list (apply 
                                '+ 
                                (mapcar 
                                  '* 
                                  (nth i m1) 
                                  (mapcar '(lambda (x) (nth j x)) m2) 
                                ) 
                              ) 
                        ) 
                ) 
            j        (1+ j) 
      ) 
    ) 
    (setq ret (append ret (list tmp)) 
          i   (1+ i) 
    ) 
  ) 
  ret 
) 
;| 返回矩阵的坐标系( X向量 Y向量 Z向量 原点)|; 
(defun matrix-convert (m / n i ret) 
  (setq i 0) 
  (if (equal (expt (setq n (length m)) 2) (length2 m)) 
    (repeat n 
      (setq ret (append ret (list (mapcar '(lambda (x) (nth i x)) m))) i (1+ i)) 
    ) 
  ) 
  ret 
) 
;; 
;;矩阵基本变换，以（0.0 0.0 0.0）进行变换，用其组合也可以达到一次变换的; 
;;的目的 
;; 
;;矩阵移動 
(defun tmatrix_m (p) 
  (list        (list 1. 0. 0. (car p)) 
        (list 0. 1. 0. (cadr p)) 
        (list 0. 0. 1. (caddr p)) 
        '(0. 0. 0. 1.) 
  ) 
) 
;; 移動; 
(defun matrix-move (x y z) 
  (list        (list 1. 0. 0. x) 
        (list 0. 1. 0. y) 
        (list 0. 0. 1. z) 
        (list 0. 0. 0. 1.) 
  ) 
) 
;; 矩阵绕Z軸旋转 
(defun tmatrix_rz (an) 
  (list        (list (cos an) (- (sin an)) 0. 0.) 
        (list (sin an) (cos an) 0. 0.) 
        '(0. 0. 1. 0.) 
        '(0. 0. 0. 1.) 
  ) 
) 
;; 矩阵缩放 
(defun tmatrix_s (s) 
  (cond 
    ((and (= (type s) 'list) (= (length s) 3)) 
                                        ;X Y Z 不等比缩放，CAD不接受非 
     (list (list (car s) 0. 0. 0.)        ;等比矩阵 
           (list 0. (cadr s) 0. 0.) 
           (list 0. 0. (caddr s) 0.) 
           '(0. 0. 0. 1.) 
     ) 
    ) 
    ((numberp s)                        ;等比缩放 
     (list (list s 0. 0. 0.) 
           (list 0. s 0. 0.) 
           (list 0. 0. s 0.) 
           '(0. 0. 0. 1.) 
     ) 
    ) 
  ) 
) 
;; 縮放 
(defun matrix-scale (sx sy sz) 
  (list        (list sx 0. 0. 0.) 
        (list 0. sy 0. 0.) 
        (list 0. 0. sz 0.) 
        (list 0. 0. 0. 1.) 
  ) 
) 
;; 去表最后元素 
(defun !last (l) 
  (reverse (cdr (reverse l))) 
) 
;;返回表中要素总数量(包括子表) 
(defun length2 (l) 
  (cond 
    ((not l) 0) 
    ((atom l) 1) 
    (t (+ (length2 (car l)) (length2 (cdr l)))) 
  ) 
) 
;; 用 a 置換表 l 中 第 n 个元素(可以是子表); 
;| 
用法：(EA:SUBST-N '(0 2) '(99 22) '((1 2 3) 2 55 99 66))       替换第一个子表第三项 
                                   ((1 2 (99 22)) 2 55 99 66) 
      (EA:SUBST-N '(2 1) '(99) '(1 2 (55) 99 66))   替换第二个子表第二项 
                                  (1 2 (55 ((99))) 99 66) 
      (EA:SUBST-N 2.0 '(99) '(1 2 55 99 66)) 替换第二个原子 
                             (1 2 (99) 99 66) 
|; 
(defun subst-n (n a l) 
  (cond 
    ((numberp n) 
     (if (zerop n) 
       (append (list a) (cdr l)) 
       (cons (car l) (subst-n (1- n) a (cdr l))) 
     ) 
    ) 
    ((listp n) 
     (cond 
       ((equal (length n) 1) 
        (if (zerop (car n)) 
          (append (list a) (cdr l)) 
          (cons (car l) (subst-n (1- (car n)) a (cdr l))) 
        ) 
       ) 
       ((> (length n) 1) 
        (if (zerop (car n)) 
          (cons (subst-n (cdr n) a (car l)) (cdr l)) 
          (cons        (car l) 
                (subst-n (append (list (1- (car n))) (cdr n)) a (cdr l)) 
          ) 
        ) 
       ) 
     ) 
    ) 
  ) 
) 
;; 矩阵相乘 
(defun matrix-compose (m1 m2 / n i j tmp ret) 
  (if (= (expt (setq n (length m1)) 2) 
         (length2 m1) 
         (expt (length m2) 2) 
         (length2 m2) 
      );;m1 m2 必须同是4x4矩阵 
    (progn 
      (setq i 0) 
      (repeat n 
        (setq j          0 
              tmp nil 
        ) 
        (repeat        n 
          (setq        tmp (append 
                      tmp 
                      (list 
                        (apply '+ 
                               (mapcar '* 
                                       (nth i m1) 
                                       (mapcar '(lambda (x) (nth j x)) m2) 
                               ) 
                        ) 
                      ) 
                    ) 
                j   (1+ j) 
          ) 
        ) 
        (setq ret (append ret (list tmp)) 
              i          (1+ i) 
        ) 
      ) 
    ) 
  ) 
  ret 
) 
;;求逆矩阵，仅适用3D矩阵 
(defun matrix-inverse (m / mm sm rm) 
  (if (and (equal (setq n (length m)) 4) (equal (length2 m) 16));;4X4矩阵 
    (progn 
      (setq m  (matrix-convert m) 
            mm (apply 'matrix-move (mapcar '- (!last (last m)))) 
            m  (subst-n 3 '(0. 0. 0. 1.) m) 
            sm (apply 'matrix-scale 
                      (mapcar '(lambda (x) (/ 1. (ea:vector_length x))) 
                              (mapcar '!last (!last m)) 
                      ) 
               ) 
            rm (matrix-compose sm m) 
      ) 
      (matrix-compose sm (matrix-compose rm mm)) 
    ) 
  ) 
)

mmmm · 发表于 2003-6-22 14:42:32

http://www.menziengineering.ch/
选FREE STUFF

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.menziengineering.ch/">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

eachy · 发表于 2003-6-22 20:13:07

确实不错，转贴几个。

;|块中属性旋转一个角度
函数名：VxAlignAtts
功能：旋转块中所有属性
Copyright:?000 MENZI ENGINEERING GmbH, Switzerland
参数:
Obj = Object [VLA-OBJECT]
Ang = 角度 (弧度) [REAL]
返回值: Null
|;
(defun VxAlignAtts (Obj Ang)
(mapcar
'(lambda (Att) (vla-put-Rotation Att Ang))
(vlax-invoke Obj "GetAttributes")
)
(vla-update Obj)
(princ)
)
;|获取块中所有属性
函数名：VxGetAtts
功能：获取块中所有属性
Copyright:2000 MENZI ENGINEERING GmbH, Switzerland
参数[类型]:
Obj = Object [VLA-OBJECT]
返回值 [类型]: 点表 '(("Tag1" . "Val1")...) [LIST]
|;
(defun VxGetAtts (Obj)
(mapcar
'(lambda (Att)
(cons (vla-get-TagString Att)
(vla-get-TextString Att)
)
)
(vlax-invoke Obj "GetAttributes")
)
)
;|VxSetAtts - Sets?attribute values to block
函数名: VxSetAtts
功能: 设置块中属性
Copyright: ?000 MENZI ENGINEERING GmbH, Switzerland
参数 [类型]:
Obj = Object [VLA-OBJECT]
Lst = 点表 '(("Tag1" . "Val1")...) [LIST]
返回值[类型]: nil
|;
(defun VxSetAtts (Obj Lst / AttVal)
(mapcar
'(lambda (Att)
(if (setq AttVal (cdr (assoc (vla-get-TagString Att) Lst)))
(vla-put-TextString Att AttVal)
)
)
(vlax-invoke Obj "GetAttributes")
)
(vla-update Obj)
(princ)
)
;| VxGetOpenDwgs - Returns a list of all open drawings including path
函数名: VxGetOpenDwgs
功能: 获取所有打开的包括路径的 Drawing 名称
Copyright: ?001 MENZI ENGINEERING GmbH, Switzerland
参数 [类型]: None
返回值[类型]: Drawing names [表]
注意:
使用 DocManagerReactor with a 'vlr-documentToBeDestroyed'-event
to release the Gb:AcO and Gb:AcD objects at the end of a
AutoCAD session - otherwise AutoCAD maybe crashes...
|;
(defun VxGetOpenDwgs (/ DwgLst DwgNme)
(setq Gb:AcO (cond (Gb:AcO)
(T (vlax-get-acad-object))
)
)
(vlax-for Doc (vla-get-Documents Gb:AcO)
(if (/= (setq DwgNme (vla-get-Fullname Doc)) "")
(setq DwgLst (cons DwgNme DwgLst))
)
(vlax-release-object Doc)
)
(reverse DwgLst)
)
;|
函数名：VxDelDirectory
功能: 删除指定目录
Copyright: ?002 MENZI ENGINEERING GmbH, Switzerland
参数[类型]:
目录 = Folder to delete "C:\\Temp\\MyTemp\\AllScrap" [STR]
返回值[类型]:
T VxDelDirectory成功
nil Error on deleting directory
注意:
需要 ScrRun.dll 文件.
|;
(defun VxDelDirectory (Dir / FilSys RetVal)
(setq FilSys (vlax-create-object "Scripting.FileSystemObject")
RetVal (cond
((= (vlax-invoke FilSys "FolderExists" Dir) 0) nil)
(T (vlax-invoke FilSys "DeleteFolder" Dir :vlax-true) T)
)
)
(vlax-release-object FilSys)
RetVal
)
;|
函数名：VxReadTextFile
功能：读取文件返回行字串表 (fast).
Copyright: ?001 MENZI ENGINEERING GmbH, Switzerland
参数[类型]:
Fil = (路径)文件名 [字串]
返回值[类型]:
List of lines [LIST]
nil 如果未找到文件
注意:
需要 ScrRun.dll 文件.
|;
(defun VxReadTextFile (Fil / FilObj FilPth FilSys OpnFil RetVal)
(if (setq FilPth (findfile Fil))
(progn
(setq FilSys (vlax-create-object "Scripting.FileSystemObject")
FilObj (vlax-invoke FilSys "GetFile FilPth")
OpnFil (vlax-invoke FilObj "OpenAsTextStream" 1 0)
)
(while (= (vlax-get OpnFil "AtEndOfStream") 0)
(setq RetVal (cons (vlax-invoke OpnFil "ReadLine") RetVal))
)
(vlax-invoke OpnFil "Close")
(vlax-release-object OpnFil)
(vlax-release-object FilObj)
(vlax-release-object FilSys)
(reverse RetVal)
)
nil
)
)

;|块中属性旋转一个角度 
函数名：VxAlignAtts 
功  能：旋转块中所有属性 
 Copyright:?000 MENZI ENGINEERING GmbH, Switzerland 
参  数: 
  Obj = Object [VLA-OBJECT] 
  Ang = 角度 (弧度) [REAL] 
返回值:   Null 
|; 
(defun VxAlignAtts (Obj Ang) 
  (mapcar 
    '(lambda (Att) (vla-put-Rotation Att Ang)) 
    (vlax-invoke Obj "GetAttributes") 
  ) 
  (vla-update Obj) 
  (princ) 
) 
 ;|获取块中所有属性 
函数名：VxGetAtts 
功  能：获取块中所有属性 
Copyright:2000 MENZI ENGINEERING GmbH, Switzerland 
参  数[类型]: 
         Obj = Object [VLA-OBJECT] 
返回值 [类型]: 点表 '(("Tag1" . "Val1")...) [LIST] 
|; 
(defun VxGetAtts (Obj) 
  (mapcar 
    '(lambda (Att) 
       (cons (vla-get-TagString Att) 
             (vla-get-TextString Att) 
       ) 
     ) 
    (vlax-invoke Obj "GetAttributes") 
  ) 
) 
 ;|VxSetAtts - Sets?attribute values to block 
函数名: VxSetAtts 
功  能: 设置块中属性 
Copyright: ?000 MENZI ENGINEERING GmbH, Switzerland 
参数 [类型]: 
    Obj = Object [VLA-OBJECT] 
    Lst = 点表 '(("Tag1" . "Val1")...) [LIST] 
返回值[类型]: nil 
|; 
(defun VxSetAtts (Obj Lst / AttVal) 
  (mapcar 
    '(lambda (Att) 
       (if (setq AttVal (cdr (assoc (vla-get-TagString Att) Lst))) 
         (vla-put-TextString Att AttVal) 
       ) 
     ) 
    (vlax-invoke Obj "GetAttributes") 
  ) 
  (vla-update Obj) 
  (princ) 
) 
 ;| VxGetOpenDwgs - Returns a list of all open drawings including path 
函数名: VxGetOpenDwgs 
功  能: 获取所有打开的 包括路径的 Drawing 名称 
 Copyright: ?001 MENZI ENGINEERING GmbH, Switzerland 
参数 [类型]: None 
返回值[类型]: Drawing names [表] 
注意: 
  使用 DocManagerReactor with a 'vlr-documentToBeDestroyed'-event 
   to release the Gb:AcO and Gb:AcD objects at the end of a 
   AutoCAD session - otherwise AutoCAD maybe crashes... 
|; 
(defun VxGetOpenDwgs (/ DwgLst DwgNme) 
  (setq        Gb:AcO (cond (Gb:AcO) 
                     (T (vlax-get-acad-object)) 
               ) 
  ) 
  (vlax-for Doc        (vla-get-Documents Gb:AcO) 
    (if        (/= (setq DwgNme (vla-get-Fullname Doc)) "") 
      (setq DwgLst (cons DwgNme DwgLst)) 
    ) 
    (vlax-release-object Doc) 
  ) 
  (reverse DwgLst) 
) 
;| 
函数名：VxDelDirectory 
功  能: 删除指定目录 
Copyright:  ?002 MENZI ENGINEERING GmbH, Switzerland 
参数[类型]: 
   目录 = Folder to delete "C:\\Temp\\MyTemp\\AllScrap" [STR] 
返回值[类型]: 
   T   VxDelDirectory成功 
   nil Error on deleting directory 
注意: 
  需要 ScrRun.dll 文件. 
|; 
(defun VxDelDirectory        (Dir / FilSys RetVal) 
    (setq FilSys (vlax-create-object "Scripting.FileSystemObject") 
          RetVal (cond 
                   ((= (vlax-invoke FilSys "FolderExists" Dir) 0) nil) 
                   (T (vlax-invoke FilSys "DeleteFolder" Dir :vlax-true) T) 
                 ) 
    ) 
    (vlax-release-object FilSys) 
    RetVal 
  ) 
;| 
函数名：VxReadTextFile 
功  能：读取文件返回行字串表 (fast). 
Copyright:   ?001 MENZI ENGINEERING GmbH, Switzerland 
参数[类型]: 
   Fil = (路径)文件名 [字串] 
返回值[类型]: 
   List of lines [LIST] 
   nil 如果未找到文件 
注意: 
  需要 ScrRun.dll 文件. 
|; 
(defun VxReadTextFile (Fil / FilObj FilPth FilSys OpnFil RetVal) 
  (if (setq FilPth (findfile Fil)) 
    (progn 
      (setq FilSys (vlax-create-object "Scripting.FileSystemObject") 
            FilObj (vlax-invoke FilSys "GetFile FilPth") 
            OpnFil (vlax-invoke FilObj "OpenAsTextStream" 1 0) 
      ) 
      (while (= (vlax-get OpnFil "AtEndOfStream") 0) 
        (setq RetVal (cons (vlax-invoke OpnFil "ReadLine") RetVal)) 
      ) 
      (vlax-invoke OpnFil "Close") 
      (vlax-release-object OpnFil) 
      (vlax-release-object FilObj) 
      (vlax-release-object FilSys) 
      (reverse RetVal) 
    ) 
    nil 
  ) 
)

eachy · 发表于 2003-6-22 20:32:29

;|
函数名: VxGetDriveInfos
功能: 返回选择磁盘信息
Copyright: ?001 MENZI ENGINEERING GmbH, Switzerland
参数[类型]:
Drv = 盘符, 如. "C" 或 "C:" [字串]
返回值[类型]:
磁盘信息 '(TotalSize FreeSpace DriveType FileSystem SerialNumber ShareName VolumeName) [表]
说明:
- TotalSize (kB) [实数] 磁盘空间或 network share.
- FreeSpace (kB) [REAL] 空闲空间 or network share.
- DriveType [INT]
0 = "Unknown"
1 = "Removable"
2 = "Fixed"
3 = "Network"
4 = "CD-ROM"
5 = "RAM Disk"
- FileSystem [STR] 磁盘系统格式, 如. "FAT", "NTFS", "CDFS".
- SerialNumber [INT] Returns the serial number used to uniquely identify a disk volume.
- ShareName [STR] Returns the network share name (UNC) for the specified drive. If it's
not a network drive, ShareName returns a zero-length string ("").
- VolumeName [STR] 卷标
0 The drive doesn't exist.
1 The drive is not ready. For removable-media drives and CD-ROM drives,
VxGetDriveInfos returns -1 when the appropriate media is not inserted
or not ready for access.
注意: 需要 ScrRun.dll.
|;
(defun VxGetDriveInfos (Drv / DrvObj FilSys RetVal)
(setq FilSys (vlax-create-object "Scripting.FileSystemObject")
RetVal (cond
((= (vlax-invoke FilSys "DriveExists" Drv) 0) 0)
((setq DrvObj (vlax-invoke FilSys "GetDrive" Drv))
(cond
((= (vlax-get DrvObj "IsReady") 0) -1)
((list
(/ (vlax-get DrvObj "TotalSize") 1000.0)
(/ (vlax-get DrvObj "FreeSpace") 1000.0)
(vlax-get DrvObj "DriveType")
(vlax-get DrvObj "FileSystem")
(vlax-get DrvObj "SerialNumber")
(vlax-get DrvObj "ShareName")
(vlax-get DrvObj "VolumeName")
)
)
)
)
)
)
(if DrvObj
(vlax-release-object DrvObj)
)
(vlax-release-object FilSys)
RetVal
)

;| 
函数名: VxGetDriveInfos 
功  能: 返回选择磁盘信息 
Copyright:   ?001 MENZI ENGINEERING GmbH, Switzerland 
参数[类型]: 
   Drv = 盘符, 如. "C" 或 "C:" [字串] 
返回值[类型]: 
  磁盘信息 '(TotalSize FreeSpace DriveType FileSystem SerialNumber ShareName VolumeName) [表] 
说明: 
  - TotalSize (kB) [实数] 磁盘空间或 network share. 
  - FreeSpace (kB) [REAL] 空闲空间 or network share. 
  - DriveType [INT] 
     0 = "Unknown" 
     1 = "Removable" 
     2 = "Fixed" 
     3 = "Network" 
     4 = "CD-ROM" 
     5 = "RAM Disk" 
  - FileSystem [STR]  磁盘系统格式, 如. "FAT", "NTFS", "CDFS". 
  - SerialNumber [INT] Returns the serial number used to uniquely identify a disk volume. 
  - ShareName [STR]  Returns the network share name (UNC) for the specified drive. If it's 
                     not a network drive, ShareName returns a zero-length string (""). 
  - VolumeName [STR] 卷标 
     0 The drive doesn't exist. 
     1 The drive is not ready. For removable-media drives and CD-ROM drives, 
     VxGetDriveInfos returns -1 when the appropriate media is not inserted 
     or not ready for access. 
 注意: 需要 ScrRun.dll. 
|; 
(defun VxGetDriveInfos (Drv / DrvObj FilSys RetVal) 
  (setq        FilSys (vlax-create-object "Scripting.FileSystemObject") 
        RetVal (cond 
                 ((= (vlax-invoke FilSys "DriveExists" Drv) 0) 0) 
                 ((setq DrvObj (vlax-invoke FilSys "GetDrive" Drv)) 
                  (cond 
                    ((= (vlax-get DrvObj "IsReady") 0) -1) 
                    ((list 
                       (/ (vlax-get DrvObj "TotalSize") 1000.0) 
                       (/ (vlax-get DrvObj "FreeSpace") 1000.0) 
                       (vlax-get DrvObj "DriveType") 
                       (vlax-get DrvObj "FileSystem") 
                       (vlax-get DrvObj "SerialNumber") 
                       (vlax-get DrvObj "ShareName") 
                       (vlax-get DrvObj "VolumeName") 
                     ) 
                    ) 
                  ) 
                 ) 
               ) 
  ) 
  (if DrvObj 
    (vlax-release-object DrvObj) 
  ) 
  (vlax-release-object FilSys) 
  RetVal 
)

_$ (VXGETDRIVEINFOS "c")
(3.14409e+006 1.88954e+006 2 "FAT32" 890508531 "" "SYS")
_$ (VXGETDRIVEINFOS "g")
0
_$ (VXGETDRIVEINFOS "f")
(273258.0 0.0 4 "CDFS" 1020034984 "" "我的光盘")
_$ (VXGETDRIVEINFOS "h")
(4.18666e+006 750223.0 2 "FAT32" 417077354 "" "USB_1")
_$

mmmm · 发表于 2003-6-22 23:32:04

http://discussion.autodesk.com/WebX?14@166.gDZfaqcara6.1@.ee77f0b

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://discussion.autodesk.com/WebX?14@166.gDZfaqcara6.1@.ee77f0b">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

e2002 · 发表于 2003-6-23 10:13:05

autodesk也推出web方式的讨论组了啊,不过用惯了google的,试试先...

非常可惜,autodesk的这个论坛的程序对用户来说很不方便,
如果你要想保存没个Frame的内容,IE系列浏览器(包括IE内核的多种)无法完成这样的任务,Oprea7.11我试过了也不行,最后只好转到Redhat中使用Konqueror(或Mozilla),结果很简单的使用"在新的标签页中打开"即刻完成.

令人沮丧的IE...8-(
只好安装了MozillaFirebird 0.6 for Windows 了

eachy · 发表于 2003-7-25 13:03:56

;;;************************************************************************
;;; Filename: DBX-DwgScan.LSP
;;; Author: David Stein
;;; Date: April 2002
;;; Purpose: ObjectDBX Drawing Scan Example for Visual LISP Developers Bible book
;;;************************************************************************
;;; Usage: (DWGSCAN tablename itemname drawings)
;;;
;;; Where:
;;; tablename = string name of table (ex. Blocks, Ltypes, DimStyles, etc.)
;;; itemname = string name of item to search for
;;; drawings = list of drawing filenames (full paths included for each)
;;;
;;; Returns: A list of filenames that contain the itemname being searched for.
;;;************************************************************************
;;; For use with AutoCAD 2000, 2000i and 2002 or related vertical products
;;; only. Will NOT work with R14, any LT or Inventor products.
;;; Must be compiled as a separate-namespace VLX application
;;;************************************************************************
(vl-doc-export 'dwgscan)
(vl-load-com)
(defun DLLRegister (dll)
(startapp "regsvr32.exe" (strcat "/s "" dll """))
)
(defun ProgID->ClassID (ProgID)
(vl-registry-read
(strcat "HKEY_CLASSES_ROOT\" progid "\\CLSID")
)
)
(defun DBX-Register (/ classname)
(setq classname "ObjectDBX.AxDbDocument")
(cond
((ProgID->ClassID classname))
((and
(setq server (findfile "AxDb15.dll"))
(DLLRegister server)
(ProgID->ClassID classname)
)
(ProgID->ClassID classname)
)
((not (setq server (findfile "AxDb15.dll")))
(alert
"Error: Cannot locate ObjectDBX Type Library (AxDb15.dll)..."
)
)
(T
(DLLRegister "ObjectDBX.AxDbDocument")
(or
(ProgID->ClassID "ObjectDBX.AxDbDocument")
(alert
"Error: Failed to register ObjectDBX ActiveX services..."
)
)
)
)
)
(defun DBX-GetTableList
(filename tblname / dbxdoc out name)
(cond
((findfile filename)
(if (not (DBX-Register))
(vl-exit-with-error
"\nUnable to register ObjectDBX from Visual LISP."
)
)
(setq dbxdoc
(vla-GetInterfaceObject
(vlax-get-acad-object)
"ObjectDBX.AxDbDocument"
)
)
(cond
((vl-catch-all-error-p
(vl-catch-all-apply
'vla-Open
(list
dbxdoc
(findfile filename)
)
)
)
(princ (strcat "\nUnable to open drawing: " filename))
)
(T
(vlax-For tblItem (DBX-TableGet tblName dbxdoc)
(setq name (vla-get-Name tblItem))
(if (/= (substr name 1 1) "*")
(setq out
(cons name out)
)
)
)
)
) ; cond
(vlax-release-object dbxdoc)
)
(T
(strcat (princ "\nUnable to open file: " filename))
)
) ; cond
(if out
(reverse out)
)
)
(defun DBX-TableGet (tName object)
(cond
((= (strcase tName) "BLOCKS") (vla-get-Blocks object))
((= (strcase tName) "LAYERS") (vla-get-Layers object))
((= (strcase tName) "TEXTSTYLES")
(vla-get-textstyles object)
)
((= (strcase tName) "DIMSTYLES") (vla-get-dimstyles object))
((= (strcase tName) "LINETYPES") (vla-get-linetypes object))
((or
(= (strcase tName) "PLOTCONFIGURATIONS")
(= (strcase tName) "PAGESETUPS")
)
(vla-get-plotconfigurations object)
)
((= (strcase tName) "LAYOUTS") (vla-get-Layouts object))
((= (strcase tName) "GROUPS") (vla-get-Groups object))
(T
(vl-exit-with-error
"\n(dbx-dwgscan error): Invalid table name specified."
)
)
)
)
(defun DWGSCAN
($table $name $dwgfiles / $files
$dwgs $path $collection n
out
)
(cond
((and $table $name $dwgfiles)
(princ
(strcat
"\nScanning "
(itoa (length $dwgfiles))
" drawings for "
(strcase (substr $table 1 (1- (strlen $table))) t)
" ["
$name
"]..."
)
)
(foreach n $dwgfiles
(cond
((setq $collection (DBX-GetTableList n $table))
(cond
((member (strcase $name) (mapcar 'strcase $collection))
(setq out (cons n out))
)
)
(setq $collection nil)
)
;;( T (princ "\nUnable to query table collection in target drawing.") )
)
)
)
(T
(princ "\nUsage: (DWGSCAN tablename itemname drawingfiles)")
)
)
(if out
(reverse out)
)
)
(princ)

;;;************************************************************************ 
;;; Filename: DBX-DwgScan.LSP 
;;; Author:   David Stein 
;;; Date:     April 2002 
;;; Purpose:  ObjectDBX Drawing Scan Example for Visual LISP Developers Bible book 
;;; Copyright (C)2002 David M. Stein, All Rights Reserved. 
;;;************************************************************************ 
;;; Usage: (DWGSCAN tablename itemname drawings) 
;;; 
;;; Where: 
;;;        tablename = string name of table (ex. Blocks, Ltypes, DimStyles, etc.) 
;;;        itemname  = string name of item to search for 
;;;        drawings  = list of drawing filenames (full paths included for each) 
;;; 
;;; Returns: A list of filenames that contain the itemname being searched for. 
;;;************************************************************************ 
;;; For use with AutoCAD 2000, 2000i and 2002 or related vertical products 
;;; only.  Will NOT work with R14, any LT or Inventor products. 
;;; Must be compiled as a separate-namespace VLX application 
;;;************************************************************************ 
(vl-doc-export 'dwgscan) 
(vl-load-com) 
(defun DLLRegister (dll) 
  (startapp "regsvr32.exe" (strcat "/s "" dll """)) 
) 
(defun ProgID->ClassID (ProgID) 
  (vl-registry-read 
    (strcat "HKEY_CLASSES_ROOT\" progid "\\CLSID") 
  ) 
) 
(defun DBX-Register (/ classname) 
  (setq classname "ObjectDBX.AxDbDocument") 
  (cond 
    ((ProgID->ClassID classname)) 
    ((and 
       (setq server (findfile "AxDb15.dll")) 
       (DLLRegister server) 
       (ProgID->ClassID classname) 
     ) 
     (ProgID->ClassID classname) 
    ) 
    ((not (setq server (findfile "AxDb15.dll"))) 
     (alert 
       "Error: Cannot locate ObjectDBX Type Library (AxDb15.dll)..." 
     ) 
    ) 
    (T 
     (DLLRegister "ObjectDBX.AxDbDocument") 
     (or 
       (ProgID->ClassID "ObjectDBX.AxDbDocument") 
       (alert 
         "Error: Failed to register ObjectDBX ActiveX services..." 
       ) 
     ) 
    ) 
  ) 
) 
(defun DBX-GetTableList 
                        (filename tblname / dbxdoc out name) 
  (cond 
    ((findfile filename) 
     (if (not (DBX-Register)) 
       (vl-exit-with-error 
         "\nUnable to register ObjectDBX from Visual LISP." 
       ) 
     ) 
     (setq dbxdoc 
            (vla-GetInterfaceObject 
              (vlax-get-acad-object) 
              "ObjectDBX.AxDbDocument" 
            ) 
     ) 
     (cond 
       ((vl-catch-all-error-p 
          (vl-catch-all-apply 
            'vla-Open 
            (list 
              dbxdoc 
              (findfile filename) 
            ) 
          ) 
        ) 
        (princ (strcat "\nUnable to open drawing: " filename)) 
       ) 
       (T 
        (vlax-For tblItem (DBX-TableGet tblName dbxdoc) 
          (setq name (vla-get-Name tblItem)) 
          (if (/= (substr name 1 1) "*") 
            (setq out 
                   (cons name out) 
            ) 
          ) 
        ) 
       ) 
     )                                        ; cond 
     (vlax-release-object dbxdoc) 
    ) 
    (T 
     (strcat (princ "\nUnable to open file: " filename)) 
    ) 
  )                                        ; cond 
  (if out 
    (reverse out) 
  ) 
) 
(defun DBX-TableGet (tName object) 
  (cond 
    ((= (strcase tName) "BLOCKS") (vla-get-Blocks object)) 
    ((= (strcase tName) "LAYERS") (vla-get-Layers object)) 
    ((= (strcase tName) "TEXTSTYLES") 
     (vla-get-textstyles object) 
    ) 
    ((= (strcase tName) "DIMSTYLES") (vla-get-dimstyles object)) 
    ((= (strcase tName) "LINETYPES") (vla-get-linetypes object)) 
    ((or 
       (= (strcase tName) "PLOTCONFIGURATIONS") 
       (= (strcase tName) "PAGESETUPS") 
     ) 
     (vla-get-plotconfigurations object) 
    ) 
    ((= (strcase tName) "LAYOUTS") (vla-get-Layouts object)) 
    ((= (strcase tName) "GROUPS") (vla-get-Groups object)) 
    (T 
     (vl-exit-with-error 
       "\n(dbx-dwgscan error): Invalid table name specified." 
     ) 
    ) 
  ) 
) 
(defun DWGSCAN 
               ($table          $name            $dwgfiles /                $files 
                $dwgs          $path            $collection                n 
                out 
               ) 
  (cond 
    ((and $table $name $dwgfiles) 
     (princ 
       (strcat 
         "\nScanning " 
         (itoa (length $dwgfiles)) 
         " drawings for " 
         (strcase (substr $table 1 (1- (strlen $table))) t) 
         " [" 
         $name 
         "]..." 
       ) 
     ) 
     (foreach n        $dwgfiles 
       (cond 
         ((setq $collection (DBX-GetTableList n $table)) 
          (cond 
            ((member (strcase $name) (mapcar 'strcase $collection)) 
             (setq out (cons n out)) 
            ) 
          ) 
          (setq $collection nil) 
         ) 
        ;;( T (princ "\nUnable to query table collection in target drawing.") ) 
       ) 
     ) 
    ) 
    (T 
     (princ "\nUsage: (DWGSCAN tablename itemname drawingfiles)") 
    ) 
  ) 
  (if out 
    (reverse out) 
  ) 
) 
(princ)

LUCAS · 发表于 2003-7-25 17:03:48

把網站貼出會簡單些!!
http://www.dsxcad.com/

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.dsxcad.com/">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

eachy · 发表于 2003-7-25 23:35:48

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.visuallisp-tutorial.mapcar.net/collections.html">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.cad.dp.ua/stats/content.php?content=A_g.html">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.cadesign.com.br/visual022001.htm">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

;;;System related
(getenv "Path") ;string System search paths
(getenv "COMSPEC") ;string Cmd.exe path
(getenv "UserName") ;string User logon name
(getenv "Temp") ;string Temp path
(getenv "TMP") ;string Temp path
(getenv "ComputerName") ;string Computer name
(getenv "Windir") ;string Windows path
(getenv "OS") ;string Operating system
(getenv "UserProfile") ;string Current user profile path
(getenv "Pathext") ;string Exec extensions
(getenv "SystemDrive") ;string System drive
(getenv "SystemRoot") ;string System root path
(getenv "MaxArray") ;integer
;;;General
(getenv "ACAD") ;string Support search paths
(getenv "ANSIHatch") ;string Pattern file for ANSI setup 1)
(getenv "ANSILinetype") ;string Linetype file for ANSI setup 1)
(getenv "ISOHatch") ;string Pattern file for ISO setup 1)
(getenv "ISOLinetype") ;string Linetype file for ISO setup 1)
(getenv "StartUpType") ;string Current default for StartUp dialog
(getenv "Measureinit") ;string MEASUREINIT
(getenv "InsertUnitsDefSource") ;integer INSUNITSDEFSOURCE
(getenv "InsertUnitsDefTarget") ;integer INSUNITSDEFTARGET
(getenv "LastTemplate") ;string Last DWT used
(getenv "Pickstyle") ;integer
(getenv "Coords") ;integer
(getenv "ShowProxyDialog") ;integer
(getenv "Osmode") ;integer
(getenv "EdgeMode") ;integer
(getenv "PAPERUPDATE") ;integer
(getenv "ACADPLCMD") ;string Plotter command string
(getenv "ImageHighlight") ;integer
(getenv "Attdia") ;integer
(getenv "Attreq") ;integer
(getenv "Delobj") ;integer
(getenv "Dragmode") ;integer
(getenv "UseMRUConfig") ;integer
(getenv "PLSPOOLALERT") ;integer
(getenv "PLOTLEGACY") ;integer
(getenv "PSTYLEPOLICY") ;integer
(getenv "OLEQUALITY") ;integer
(getenv "Anyport") ;integer
(getenv "Validation Policy") ;integer
(getenv "Validation Strategy") ;integer
(getenv "CommandDialogs") ;integer CMDDIA
(getenv "TempDirectory") ;string Temp dir
(getenv "PlotSpoolerDirectory") ;string Spooler dir
(getenv "DefaultLoginName") ;string Default login
(getenv "MenuFile") ;string Default menu path
(getenv "NetLocation") ;string Default URL
(getenv "ACADDRV") ;string Driver path
(getenv "ACADHELP") ;string Help path
(getenv "PrinterConfigDir") ;string Plotter path
(getenv "PrinterStyleSheetDir") ;string Plot styles path
(getenv "PrinterDescDir") ;string Plotter driver path
(getenv "NewStyleSheet") ;string Default .stb/.ctb file
(getenv "DefaultFormatForSave") ;integer Default saveas
(getenv "DefaultConfig") ;string Default pc3
(getenv "LastModifiedConfig") ;string Last pc3
(getenv "MRUConfig") ;string pc3?
(getenv "ACADLOGFILE") ;string Logfile
(getenv "MaxDwg") ;integer
(getenv "AVEMAPS") ;string Texture files path
(getenv "TemplatePath") ;string Templates path
(getenv "DatabaseWorkSpacePath") ;string Data Links path
(getenv "DefaultPlotStyle") ;string e.g. "ByLayer"
(getenv "DefaultLayerZeroPlotStyle") ;string e.g."Normal"
(getenv "LineWeightUnits") ;integer
(getenv "LWDEFAULT") ;integer Default lineweight
(getenv "CustomColors") ;integer
(getenv "Blipmode") ;integer
(getenv "ToolTips") ;string
(getenv "acet-Enable") ;string
(getenv "acet-MenuLoad") ;string Loading of Express Tools menu
(getenv "AcetRText:type") ;string Current default for RTEXT, e.g. "Diesel"
;;added 02.10.01
(getenv "CmdVisLines") ;string Number of lines in command line window
(getenv "MaxHatch") ;string Maximum number of segments allowed in hatch pattern. Range 100 - 10000000
;;added 10.10.01 (that's not a binary address but a date)
(getenv "AutoSnapColor") ;string AutoSnap colour (Integer)
(getenv "AutomaticSaveMinutes") ;string Minutes between AutoSave
;; 1) used by MEASUREINIT and MEASUREMENT sysvars
;;;Editor Configuration
(getenv "SDF_AttributeExtractTemplateFile") ;string ??
(getenv "AutoSnapPolarAng") ;string POLARANG
(getenv "AutoSnapPolarDistance") ;string POLARDIST
(getenv "AutoSnapPolarAddAng") ;string POLARADDANG
(getenv "AutoSnapControl") ;integer AUTOSNAP
(getenv "AutoSnapTrackPath") ;integer TRACKPATH
(getenv "PickBox") ;integer PICKBOX
(getenv "AutoSnapSize") ;integer
(getenv "PickFirst") ;integer PICKFIRST
(getenv "PickAuto") ;integer PICKAUTO
(getenv "MenuOptionFlags") ;integer MENUCTL
(getenv "FontMappingFile") ;string
(getenv "LogFilePath") ;string
(getenv "PSOUT_PrologFileName") ;string
(getenv "MainDictionary") ;strin
(getenv "CustomDictionary") ;string
(getenv "MTextEditor") ;string
(getenv "XrefLoadPath") ;string
(getenv "SaveFilePath") ;string
(getenv "AcadLspAsDoc") ;string
;;;Drawing Window
(getenv "Background") ;integer Background color
(getenv "Layout background") ;integer PS Background color
(getenv "XhairPickboxEtc") ;integer Crosshair color
(getenv "LayoutXhairPickboxEtc") ;integer PS Crosshair color
(getenv "Autotracking vector") ;integer Autotracking vector color
(getenv "MonoVectors") ;integer
(getenv "FontFace") ;string Screen Menu
(getenv "FontHeight") ;integer
(getenv "FontWeight") ;integer
(getenv "FontItalic") ;integer
(getenv "FontPitchAndFamily") ;integer
(getenv "CursorSize") ;integer
(getenv "HideWarningDialogs") ;integer
(getenv "SDIMode") ;integer
;;;Command Line Windows
(getenv "CmdLine.ForeColor") ;integer
(getenv "CmdLine.BackColor") ;integer
(getenv "TextWindow.ForeColor") ;integert
(getenv "TextWindow.BackColor") ;integer
(getenv "CmdLine.FontFace") ;string
(getenv "CmdLine.FontHeight") ;integer
(getenv "CmdLine.FontWeight") ;integer
(getenv "CmdLine.FontItalic") ;integer
(getenv "CmdLine.FontPitchAndFamily") ;integer
(getenv "TextWindow.FontFace") ;string
(getenv "TextWindow.FontHeight") ;integer
(getenv "TextWindow.FontWeight") ;integer
(getenv "TextWindow.FontItalic") ;integer
(getenv "TextWindow.FontPitchAndFamily") ;integer

复制代码

eachy · 发表于 2003-7-29 00:39:24

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.nic.funet.fi/index/languages/lisp/cmucl-15d/code/">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>

复制代码

账号		自动登录	找回密码
密码			立即注册

[转贴]：各种LSP网站(希望大家往里加).

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

本帖被以下淘专辑推荐:

相关帖子

[分享]：优秀的函数代码站点

[分享]：discussion.autodesk.com for VisualLISP programming

[转贴]：DSX DwgSCAN

[分享]：网站推荐

[转贴]：一堆Lisp程序