KIP工程复印打印扫描一体机技术探讨

2009-11-4 20:52:51 阅读166 评论0 42009/11 Nov4

;;;绘制法兰盘

(defun C:FF ()

;;1、初始化

(setvar "cmdecho" 0)

;;2、获取圆心、外内圆半径并绘制

(if (and (setq P1 (getpoint "\n请输入中心点: "))

(setq WR (getdist P1 "\n请输入外圆半径: "))

)

(progn

作者 | 2009-11-4 20:52:51 | 阅读(166) |评论(0) | 阅读全文>>

lisp insert

2009-11-3 21:52:59 阅读159 评论0 32009/11 Nov3

Insert block

(defun c:MyBlock (/ pt)

(while (setq pt (getpoint "\nPick Insertion point."))

(command "-insert" "BlockName" "_non" pt "" "" pause)

)

(princ)

)

Insert block from another dwg w/ lisp

作者 | 2009-11-3 21:52:59 | 阅读(159) |评论(0) | 阅读全文>>

lisp

2009-11-1 22:38:57 阅读26 评论0 12009/11 Nov1

Lisp语言判断一个块在图形中是否已经存在

(IF (/= (TBLSEARCH "BLOCK" name_k) nil) ;;;name_k就是你定义的块名
(progn ;;;如果块存在就直接插入这个块
   (command "insert" name_k p0 "1" "1" "0"))
(progn;;;如果块不存在就创建这个块并插入到指定的点上
   (command "block" name_k p0 name_cc "")
   (command "insert" name_k p0 "1" "1" "0")
)

作者 | 2009-11-1 22:38:57 | 阅读(26) |评论(0) | 阅读全文>>

求和

2009-10-31 10:50:45 阅读57 评论0 312009/10 Oct31

数据导入EXCEL进行计算我没用过，
不过我自己写了个小程序是用来在CAD内进行普通运算的，源文件如下：（如果不好用，欢迎修改）

(defun c:he ()
(setvar "cmdecho" 0)
(setq oldtxtstyle (getvar "textstyle"))
(setq ptint (getpoint "\n 输入文本写入点 :"))
(princ "\n 选择要求和的数据")
(setq zh (getvar "textsize"))
(setq pttxtint (polar ptint (/ pi 2) (* zh 2)))
(setq sst (ssget))
(setq he_list 0
m 0
n 0
)
(repeat (sslength sst)

作者 | 2009-10-31 10:50:45 | 阅读(57) |评论(0) | 阅读全文>>

EXCEL中读入数据

2009-10-31 9:20:58 阅读58 评论0 312009/10 Oct31

程序码之前半部:
;;;*************************************************************************;;;
;;; DSX-API-Excel.LSP ;;;
;;; Visual LISP ActiveX API for Excel 97, 2000 and XP ;;;
;;; Copyright (C)2002 David M. Stein, All rights reserved ;;;
;;;*************************************************************************;;;

作者 | 2009-10-31 9:20:58 | 阅读(58) |评论(0) | 阅读全文>>

图纸空间

2009-10-28 11:16:58 阅读80 评论0 282009/10 Oct28

模型空间主要用于绘制零件具体图形；

　　图纸空间适合用于绘制标题栏，图纸边框，零件表及若干视区，用于打印出图。

　　视区是模型空间与图纸空间的桥梁，在图纸空间绘制，其中显示的内容是模型空间的图形。

　　通过观察窗口右下角的状态标志，可知当前工作的空间，通过双击状态标志可在各种状态间切换：
绘图操作方法：

　　1、在模型空间按零件实际尺寸绘制图形；

　　2、双击TILE区域，切换到图纸空间，以1：1的比例绘制图框及标题栏等；

作者 | 2009-10-28 11:16:58 | 阅读(80) |评论(0) | 阅读全文>>