lisp

因为在lisp中做一些工程计算比较麻烦，拟把这些工程计算用C语言来完成，程序名为a.exe。执行a.exe生成txt文件保存计算结果。在执行lisp命令时调用a.exe，并取得a.exe生成的文本数据。这样根据a.exe生成数据再在lisp中画图就...

;计算中心点1(defun zxd181 (obj / obj ss x y) (vla-getboundingbox obj 'x 'y) (setq ss (mapcar 'vlax-safearray->list (list x y))) (list (mapcar 'car ss) (mapcar 'cadr ss)));建立无名块(...

可以用反应器实现，前提是画线和输入文字必须用定义的函数一次性操作完成.LISP代码如下：(VL-Load-Com)(defun c:Line_Txt(/ Pt Pt1 Pt2 EntLine HandTxt VlaObj Tmp)(setq Pt1 (getpoint "\n指定第一点:"))(...

(defun c:try( / p);定义命令行命令“try”，定义局部变量“p”(setq p (getpoint "from point: "));利用交互获得一个点，将该点坐标存入变量“p”当中 (command "PLINE");利用命令行启动“PLINE”多段线命令，(...

一、用法：在符号表中查找下一项.二、返回值意思：如果找到了一个条目，函数就会以点对表的形式返回该条目的 DXF 类型码和值。如果符号表中没有条目了，函数返回 nil。本函数永远不会返回已被删除的条目。三、语法：(...

图层锁定或解锁，代码如下。;图层锁定及解锁(defun c:tes ( / ent lay1) (vl-load-com) (while (and (setq ent (entsel "\n请选择要锁定或解锁的图元")) (setq lay1 (cdr (assoc 8 (entget (car ent))) ...

(defun C:sx3 ( / n ss &kw L ff &k1 %k1 %k2);批量选择圆心坐标到记事本 (setvar "cmdecho" 0) ;;关闭变量 (setvar "blipmode" 0);;关闭控制点 (setvar "dimzin" 0) (vl-load-com) ;;加载vlax扩...

(defun c:0( / l1 l2 l3 l4 l5 );;;定义命令函数0（包含变量 l1 l2 l3 l4 l5）(setq l1 (entsel));;;选取图元并赋值给l1 (setq l2 (car l1));;;获取图元名并赋值给l2 (setq l3 (entget l2));;;自...

代码如下：(defun c:tes ( / &k1 &kw1 ss1) (vl-load-com) (princ "\n请选择封闭多段线") (if (setq &kw1 (ssget '((0 . "LWPOLYLINE") (70 . 1))) (progn (setq ss1 '()) (while (set...

(setq sjb '("abcd" 1234 ... 20.88))(setq a (nth 0 sjb) ; a (car sjb)b (nth 1 sjb); b (cadr sjb)...c (nth (1- (length sjb)) sjb); c (last sjb))(princ "\na的值=")(princ a)...