cad展点kszd小程序_CAD展点程序lisp

CAD

展点程序

lisp

2009

年

月

日

星期二

01:08 P.M.

(

)

依网上资源文件修改的：

－－－－－－－－－－－－－－－－－－－－－－

CAD

展点程序

把下文保存到文本文件中，扩展名改为

.lsp,

按数据格式要求准备好数据点文件。

在

CAD

中加载

lsp

文件。运行命令：

kszd

－－－－－－－－－－－－－－－－－－－－－－

;LISP

展点程序

;

展

1000

点：在

P(AMD Athlon64 3000+ 256MB)

电胶上仅耗时

0.142

秒；

;

在金利

(Geleron(R) CPU 2.40GHz 256MB)

电胶上耗时

0.882

秒

;

数据文件格式为：每一点的数据(点号、

、

)为一行，用逗号或空格作为分隔符，即

;

点号

1 X1 Y1 H1

或者

点号

1, X1, Y1, H1

;

点号

2 X2 Y2 H2

或者

点号

2, X2, Y2, H2

;

点号

3 X3 Y3 H3

或者

点号

3, X3, Y3, H3

;......

;

点号

n Xn Yn Hn

或者

点号

n, Xn, Yn, Hn1

(defun c:kszd()

(setq ff (open (getfiled "

请选择要展点的数据文件

" "" "txt" 2) "r")

fhb nil t0 (getvar "cdate")

cm (getvar "cmdecho") os (getvar "osmode")

tcm1 "

高程注记

" tcm2 "

点记

)

(setvar "cmdecho" 0)(setvar "osmode" 0)

(if (= (tblsearch "layer" tcm1) nil) (command "layer" "n" tcm1 ""))

(if (= (tblsearch "layer" tcm2) nil) (command "layer" "n" tcm2 ""))

(while (setq zb (read-line ff))

(while (vl-string-search "," zb) (setq zb (vl-string-subst " " "," zb)))

(setq zb (read (strcat "(" zb ")"))

(list

(nth

zb)

(nth

zb))

(vl-princ-to-string

(last

zb)));

注记高程

;zb

(list

(nth

zb)

(nth

zb))

(vl-princ-to-string

(car

zb)));

提示：注记点号请用该行

fhb (append fhb (list zb))

)

(setq t1 (getvar "cdate"))

(close ff)

(setq zb (vl-sort fhb '(lambda (e1 e2) (

x0 (car (car (car zb))) x1 (car (car (last zb)))

zb (vl-sort fhb '(lambda (e1 e2) (

cad展点kszd小程序_CAD展点程序lisp相关推荐

cad展点kszd小程序_cad实现批量展坐标点方法介绍
cad中是没有直接批量展点的方法,不过通过一些方法是可以实现批量展坐标点的.本经验将介绍其中一种,利用cad的复制功能,指定插入点为要展的坐标点,从而实现批量展点.步骤如下: 工具/原料 1.画一个指 ...
cad展点kszd小程序_CAD坐标展点脚本文件-CAD坐标展点程序下载v2 官方版-西西软件下载...
CAD坐标展点程序是运用Office Excel软件VBE标准模块编写的CAD脚本文件,这款文件适用于线路坐标.高程展点,已知数据输入明确,操作简单易懂! 使用方法: 1.进入CAD展点或CAD展线表 ...
A - 小C语言--词法分析程序
Description 小C语言文法 <程序>→<main关键字>(){<声明序列><语句序列>} <声明序列>→<声明序列>& ...
一个抓取电脑屏幕的小控件台程序
一个抓取电脑屏幕的小控件台程序 using System; using System.Collections.Generic; using System.Linq; using System.Text ...
Qt Creator开发基于小部件的应用程序
Qt Creator开发基于小部件的应用程序开发基于小部件的应用程序代码编辑器集成管理影像资源指定Qt Designer的设置使用设备皮肤预览表单添加小部件开发基于小部件的应用程序 Qt ...
三菱plc恒压供水程序+威纶触摸屏程序以控制水泵一用一备、一拖二、一拖三、一拖四、一拖四带小泵恒压功能
三菱plc恒压供水程序+威纶触摸屏程序本成已用于实际项目中可以直接上载制成产品也可用来学习plc恒压供水程序学习喜欢可直接联系. 三菱PLC恒压供水程序说明本程序采用三菱FX1N-30MR P ...
java小项目家庭记账程序
文章目录 java小项目家庭记账程序 **1.项目目标:** 2.项目需求: 3.具体思路: 4.具体代码: 1.页面: 2.Option_1类: 3.Option_2类: 4.Option_3类: ...
小C语言–词法分析程序
小C语言–词法分析程序 Time Limit: 1000 ms Memory Limit: 5000 KiB Problem Description 小C语言文法 1. <程序>→(){& ...
小C语言--词法分析程序
小C语言--词法分析程序 Time Limit: 1000 ms Memory Limit: 65535 KiB Submit Statistic Problem Description 小C语言文法 ...

cad展点kszd小程序_CAD展点程序lisp

cad展点kszd小程序_CAD展点程序lisp相关推荐

最新文章

热门文章