图元变形lisp源码_CAD lisp 实用小程序(源代码)

CAD

lisp

实用小程序(源代码)

一、圆自动同心

(defun

c:TX(/

center

v_c)

(vl-load-com)

(princ

圆自动同心

:")

(setq

(ssget));;

获取圆的图元名

(setq

center

(getpoint

选取点位置：

"));

(setq

center

(vlax-3D-point

center));

(setq

0);

初始序号

(repeat

(sslength

aa);

对象个数

(setq

(ssname

qi));

选择第一个图元

(setq

v_c(vlax-ename->vla-object

ec));

将圆的图元名转换为

VLA

对象

(vla-put-center

v_c

center);

更新圆中心点

(setq

1))

);repeat

(princ

修改成功

:")

);defun

二、图层快速修改

(princ

快速修改图层编程

-TC")

(defun

C:TC(/)

(vl-load-com)

(setq

SET_ZJTC

(vla-get-Layer

(vlax-ename->vla-object

(car

(entsel

"\n

选择基准图层

")))))

(WHILE

(NOT

SET_ZJTC)

(setq

SET_ZJTC

(vla-get-Layer

(vlax-ename->vla-object

(car

(entsel

"\n

基准图层为空，重新选择！

"))))))

(setq

SET_XGTC

(vla-get-Layer

(vlax-ename->vla-object

(car

(entsel

"\n

选择修改图层

")))))

(WHILE

(NOT

SET_XGTC)

(setq

SET_XGTC

(vla-get-Layer

(vlax-ename->vla-object

(car

(entsel

"\n

修改图层为空，重新选择！

"))))))

(vlax-for

VLA_MSP

(vla-get-ModelSpace

(vla-get-ActiveDocument

(vlax-get-Acad-Object)))

(IF

(vla-get-Layer

VLA_MSP)

SET_XGTC)

(vla-put-Layer

VLA_MSP

SET_ZJTC))

)

(princ

"\n

快速修改图层编程

-TC:")

(princ)

);DEFUN

三、字高自动修改

(princ

快速修改字高编程

-ZG")

(defun

C:ZG(/)

(vl-load-com)

(setq

SET_ZTGD

(vla-get-Height

(vlax-ename->vla-object

(car

(entsel

"\n

选择基准字高

")))))

(WHILE

(NOT

SET_ZJTC)

(setq

SET_ZJTC

(vla-get-Height

(vlax-ename->vla-object

(car

(entsel

"\n

基准字高为空，重新选择！

"))))))

(setq

SET_XGTC

(vla-get-Layer

(vlax-ename->vla-object

(car

(entsel

"\n

选择修改图层

")))))

(WHILE

(NOT

SET_XGTC)

(setq

SET_XGTC

(vla-get-Layer

(vlax-ename->vla-object

(car

(entsel

"\n

修改图层为空，重新选择！

"))))))

图元变形lisp源码_CAD lisp 实用小程序(源代码)相关推荐

小程序源码：AI微信小程序源码下载人脸照片AI转换动漫照片全新源码安装简单无需服务器域名-多玩法安装简单
这是一款AI人脸转动漫的一款微信小程序源码该款小程序源码无需服务器和域名搭建安装简单有多种风格转换模式可自选安装教程: 首先解压源码然后把源码上传到微信开发者工具打开另外设置一个合法域名合 ...
小程序源码：全网独家小程序版本独立微信社群人脉系统社群空间站最新源码开源+详细教程
功能介绍: 1.微信社群是一个集发布.展示社群信息.人脉推广的裂变工具/平台. 2.通过人脉广场,将商家信息通过名片进行展示,让资源对接.人脉推广更加便捷高效.为平台带来更多流量,让平台更有价值. 3 ...
【增强版短视频去水印源码】去水印微信小程序+去水印软件源码
源码简介与安装说明: 2021增强版短视频去水印源码去水印微信小程序源码网站去水印软件源码安装环境(需要材料):备案域名–服务器安装宝塔-安装 Nginx 或者 Apache php5.6 以上 ...
（已更新）【增强版短视频去水印源码】去水印微信小程序+去水印软件源码
源码简介与安装说明: 安装环境(需要材料):备案域名–服务器安装宝塔-安装 Nginx 或者 Apache php5.6 以上-安装 sg11 插件小程序已自带解析接口,支持全网主流短视频平台,搭建 ...
活动报名发布小程序源码聚会活动报名小程序完整版前端+后台管理Think
活动报名发布小程序源码聚会活动报名小程序完整版前端+后台管理Think下载链接:https://pan.baidu.com/s/16e3egizS_bjuJTv2YcA6Xg 提取码:6n11
【项目源码】智慧班牌源码家校互联小程序源码智慧校园云平台
智慧校园平台源码智慧班牌源码人脸识别技术电子班牌源码家校互联小程序源码源码开发环境:Java+springboot+vue+element-ui+mysql 智慧校园系统定位于中小学教育学校 ...
智慧校园平台源码智慧班牌源码人脸识别技术电子班牌源码家校互联小程序源码
智慧校园平台源码智慧班牌源码人脸识别技术电子班牌源码家校互联小程序源码源码开发环境:Java+springboot+vue+element-ui+mysql 智慧校园系统定位于中小学教育学校 ...
小程序源码：全网独家小程序版本独立微信社群人脉系统社群空间站-多玩法安装简单
功能介绍: 1.微信社群是一个集发布.展示社群信息.人脉推广的裂变工具/平台. 2.通过人脉广场,将商家信息通过名片进行展示,让资源对接.人脉推广更加便捷高效.为平台带来更多流量,让平台更有价值. 3 ...
Node.js+MySQL开发的B2C商城系统源码+数据库（微信小程序端+服务端），界面高仿网易严选商城
下载地址:Node.js+MySQL开发的B2C商城系统源码+数据库(微信小程序端+服务端) NideShop商城(微信小程序端) 界面高仿网易严选商城(主要是2016年wap版) 测试数据采集自网易 ...
2021最新闪拍竞拍网源码【内有小程序及源码搭建教程】
2021最新闪拍竞拍网源码[内有小程序及源码搭建教程] 功能比较多,源码完整, 后台测试地址 http://ipai.ym929.cn/web/ admin admin 前段测试地址 http://i ...

图元变形lisp源码_CAD lisp 实用小程序(源代码)

图元变形lisp源码_CAD lisp 实用小程序(源代码)相关推荐

最新文章

热门文章