lisp的vla函数画矩形_AutoLISP反应器vlr-object-reactor函数应用

AutoLISP反应器vlr-object-reactor函数应用，代码如下。

(defun c:tt (/ line line_handle txt txt_line txt_line_reactor)

(Setq txt (Vlax-Ename->Vla-Object (car (entsel))))

(Setq line (Vlax-Ename->Vla-Object (car (entsel))))

(setq line_handle (Vlax-Get line 'Handle))

(if (not txt_line_reactor)

(setq txt_line_reactor

(vlr-object-reactor

(list txt)

(list line_handle)

'((:vlr-modified . Txt_Line))

)

(vlr-pers txt_line_reactor)

)

(defun Txt_Line (a b c / line line_pa long pa pb pta ptb txt)

(setq txt a)

(setq line (Vlax-Invoke-Method

(Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument)

'HandleToObject

(car (vlr-data b))

)

(Vlax-Invoke-Method txt 'GetBoundingBox 'pa 'pb)

(setq pta (vlax-safearray->list pa))

(setq ptb (vlax-safearray->list pb))

(setq long (- (car ptb) (car pta)))

(setq line_pa (Vlax-Get line 'StartPoint))

(Vlax-Put-Property

line

'EndPoint

(Vlax-3d-Point (list (+ long (car line_pa)) (cadr line_pa)))

)

(princ)

) 代码完。

Vlax-3d-Point不是画线命令，从新设置endpoint点用startpoint来计算出其坐标，用vlax-put-property重新设置endpoint点，更新直线。

Vlax-Invoke-Method调用ActiveX方法。

lisp的vla函数画矩形_AutoLISP反应器vlr-object-reactor函数应用相关推荐

lisp的vla函数画矩形_难点解析丨反比例函数的图象和性质
函数的相关知识作为每年各省市中考的热门考点问题,主要考察学生能否结合具体实际情境了解函数的相关的意义,能否正确画出相关函数的图象并理解相关函数的性质其中反比例函数的考查形式主要是联系一次函数.二次函 ...
lisp语言100以内勾股数_三个视频搞定：函数的最值、对勾函数、分式函数性质与图像、分段函数最值...
● 本文适合高一上学期.高三一轮复习的同学阅读.先看视频再看文字,看视频时注意利用暂停,想清楚每一步变形的依据. 01 函数的最值.对勾函数的性质视频讲解 1.函数的最大(小)值说明: (1)最大 ...
Python进阶：函数式编程(高阶函数，map,reduce,filter,sorted,返回函数,匿名函数,偏函数)...啊啊啊...
函数式编程函数是Python内建支持的一种封装,我们通过把大段代码拆成函数,通过一层一层的函数调用,就可以把复杂任务分解成简单的任务,这种分解可以称之为面向过程的程序设计.函数就是面向过程的程序设计 ...
python中、函数定义可以不包括以下_python函数定义精讲
原标题:python函数定义精讲在 Python 中,你也可以定义包含若干参数的函数.这里有三种可用的形式,也可以混合使用. 默认参数值最常用的一种形式是为一个或多个参数指定默认值.这会创建一个可 ...
python3_函数_形参调用方式 / 不定长参数 / 函数返回值 / 变量作用域 / 匿名函数 / 递归调用 / 函数式编程 / 高阶函数 / gobal和nonlocal关键字 / 内置函数
1.形参的调用方式 1. 位置参数调用 2. 关键词参数调用原则: 关键词参数调用不能写在位置参数调用的前边 def test1(name, age):print("name:" ...
OpenCV——line、circle、rectangle、ellipse、polylines函数的使用和绘制文本putText函数以及绘制中文的方法。
学习OpenCV的过程中,画图是不可避免的,本篇文章旨在介绍OpenCV中与画图相关的基础函数. 1.画线条--line()函数介绍: cv2.line(image, start_point, en ...
Sql Server函数全解(四)日期和时间函数
阅读目录 1.获取系统当前日期的函数getDate(); 2.返回UTC日期的函数UTCDATE() 3.获取天数的函数DAY(d) 4.获取月份的函数MONTH(d) 5.获取年份的函数YEAR(d ...
求介绍matlab函数用法的书,MATLAB初学者教程--函数用法的简单介绍
1.4 函数用法的简单介绍 1.4.1什么是函数似乎很多人一听到函数这个词就会想到数学中的某个概念,然后对于恐惧数学的同学就开始打退堂鼓.在matlab当中到处可以用到函数,它的出现可以让我们用很简 ...
R语言使用R基础安装中的glm函数构建乳腺癌二分类预测逻辑回归模型、分类预测器（分类变量）被自动替换为一组虚拟编码变量、summary函数查看检查模型、使用table函数计算混淆矩阵评估分类模型性能
R语言使用R基础安装中的glm函数构建乳腺癌二分类预测逻辑回归模型(Logistic regression).分类预测器(分类变量)被自动替换为一组虚拟编码变量.summary函数查看检查模型.使用t ...

lisp的vla函数画矩形_AutoLISP反应器vlr-object-reactor函数应用

lisp的vla函数画矩形_AutoLISP反应器vlr-object-reactor函数应用相关推荐

最新文章

热门文章