当前位置:三九宝宝网 → 宝宝教育 → 智力培养 → 正文

CAD二次开发有没有高手来个简单的实例的程序

更新:02-18 整理:39baobao.com
字体:

[CAD中VBA二次开发]AutoCAD的二次开发主要涉及以下内容:(1)编写各种用户自定义函数并形成若干LISP、ARX、VLX或ADS文件,以及一些DCL文件。(2)建立符合自己要求的菜单文件,一般可在AutoCAD原菜单文件内...+阅读

;;Z坐标归零程序

(defun C:Z=0 ( / SS1)

(setvar "cmdecho" 0)

(if (setq SS1 (ssget))

(progn

(command ".undo" "be")

(princ "\n正在处理图形数据,请稍候...")

(terpri)

(command ".ucs" "w")

(command ".move" SS1 "" '(0 0 1e99) "" ".move" "p" "" '(0 0 -1e99) "")

(princ "\nOK,已将所选图元Z坐标值全部归零。")

(command ".undo" "e")

);end progn

);end (if (/= SS1 nil)

(princ)

);end (defun C:Z=0 ( / SS1)

本文地址:https://www.39baobao.com/show/32_73438.html

以上内容来自互联网,请自行判断内容的正确性。若本站收录的信息无意侵犯了贵司版权,请联系我们,我们会及时处理和回复,谢谢.

以下为关联文档:

autocad中vba二次开发给我随便一个简单示例可以吗;曲线转换为相同长度的圆并随鼠标移动 (defun C:Tes ( / &dis1 &k1 &kw1 &ob1) (setvar "cmdecho" 0) (setvar "blipmode" 0) (if (null vlax-dump-object) (vl-load-com) ) (pri...

有关CAD VBA二次开发的问题要用什么函数可以建立ENTER与窗体AutoCAD 引用 AutoCAD ActiveX VBA二次开发技术基础及应用引用的 AutoCAD ActiveX VBA二次开发技术基础及应用实例-2第2章Visual Basic程序设计基础本章简略介绍Visual Basi...

求:CAD二次开发教程VBA去文库,查看完整内容> 内容来自用户:dcjmovic AutoCAD在不但提供了强大的绘图功能,同时也提供了一个功能强大的集成开以工具——Microsoft Visual Basic for Applications(VBA)...

cad vb二次开发:如何在cad中选中一条多段线得到他的坐标标注栏里有一个坐标标注点击,然后标注你想要的点坐标,左右移动鼠标得到y点,再次标注上下移动则得到x点 或者 (defun c:a() (getpoint (setq a (getpoint "dian")) (setq b (strca...

VB请高手设计一个简单的程序例子:爱以下代码在VS2005环境中成功运行: Dim Tall(34) As Integer Dim i, SunAddTime As Integer Dim j As Integer For j = 1 To 35 Tall(j - 1) = j Next For i = 0 To Tall。 Le...

谁有C语言游戏程序的实例我的楼主可以自己玩一下,这是贪吃蛇的代码。你最好用win-tc来运行。网上有这个软件的下载。试试吧。有问题可以找我。呵呵#define N 200#include#include#include#define LEF...

想了解一下程序开发的流程和思路简单的1。确定你的程序最终要达成什么,目标是得到什么:进行某个数据的处理?生成某种数据?等等 2。对你的目标进行分解,将整个过程分成若干步骤,要达成最后的结果,首先需要完成哪一步,然后...

FPGA开发板的应用实例在众多汽车电子系统开发领域中,赛车一直是FPGA大显身手的场所。在汽车ECU领域,FPGA可协助提升灵活性、性能和可靠性。各大涉及赛车业务的机构,如先进引擎研究有限公司(AER,Advan...

CAD二次开发 VBA如何读取图元属性坐标并输出到文本Set acadApp = GetObject("autocad.application") If Err Then Err.Clear Set acadApp = CreateObject("autocad.application") If Err Then MsgBox ("不能运行CAD,请检查是否安装")...