AUTOlisp开发CAD转战VBA开发CAD第四天

水吉空

选择圆变半径

Public Sub by()

'选择圆半径变为原来的2倍

On Error Resume Next '出现错误接着往下走，但选择为空时

Dim ent As AcadEntity

Dim pt As Variant

ThisDrawing.Utility.GetEntity ent, pt, "请选择对象" '交互选择返回的对象就是定义的那个变量

If ent.ObjectName = "AcDbCircle" Then '判断选择的是不是圆

ent.Radius = ent.Radius * 2

Else

MsgBox ("您选择的不是圆")

End If

End Sub

(defun c:tt ()

        (vl-load-com)

        (defun *error* (msg)

                (alert "您没有选择到东西哦，请重新选择：")

                (princ msg)

                (princ)

        );错误函数没有继续往下走的功能，只有提示错误功能

        (setq ent (Vlax-Ename->Vla-Object (car (entsel "请选择对象"))))

        (if (= (Vlax-Get ent 'ObjectName ) "AcDbCircle")

                (Vlax-Put-Property ent 'Radius (* (Vlax-Get ent 'Radius ) 2) )

                (alert "你选择的不是圆")

        )

        (princ)

)

======================= 水吉空出品============================

                                           微信公众号：通信工程与CAD

                                

oldnewlearn

挺好，请继续。

wuyunpeng888

VL和VBA用的是相同的方法

水吉空

wuyunpeng888 发表于 2018-12-4 17:02
VL和VBA用的是相同的方法

是的,VL基本上都是用了vba的属性和方法

落叶交给了风

看了你的贴我对转战vlisp有点信心了哈哈哈

纵横八方

能不能写一个 调用 cad 命令 move. 移动选择题

纵横八方

能不能写一个 调用 cad 命令 move. 移动选择集(ssget