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

水吉空

用VBA创建矩形 lisp翻译VBA创建矩形

• '自定义函数，求出4点的坐标（用数组表示）
• Public Function rec(pt1 As Variant, pt2 As Variant) As AcadLWPolyline 'AcadLWPolyline优化多段线
• Dim ptarr(7) As Double '定义一个数组
• ptarr(0) = pt1(0): ptarr(1) = pt1(1)
• ptarr(2) = pt1(0): ptarr(3) = pt2(1)
• ptarr(4) = pt2(0): ptarr(5) = pt2(1)
• ptarr(6) = pt2(0): ptarr(7) = pt1(1)
• Dim recc As AcadLWPolyline
• Set recc = ThisDrawing.ModelSpace.AddLightWeightPolyline(ptarr) '数组AddLightWeightPolyline由顶点列表创建优化多段线。
• recc.Closed = True
• End Function
• 创建矩形
• Public Sub reccc()
• Dim pt1 As Variant
• Dim pt2 As Variant
• pt1 = ThisDrawing.Utility.GetPoint(, "请选择第一个点：")
• pt2 = ThisDrawing.Utility.GetCorner(pt1, "请选择对角点：")
• rec pt1, pt2
• End Sub
  

AUTOLISP翻译VBA↓↓↓

• ;求出4点的坐标
• (defun c:tt (/ lstt pt0 pt0_1 pt1 pt2 pt3 pt4 recc safe safe_lstt var_safe)
•   (vl-load-com)
•   (setq pt0 (getpoint "请选择第一个点：")
•         pt0_1 (getcorner pt0 "请选择对角点：")
•         pt1 (list (car pt0) (cadr pt0))
•         pt2 (list (car pt0_1) (cadr pt0_1))
•         pt3 (list (car pt0) (cadr pt0_1))
•         pt4 (list (car pt0_1) (cadr pt0)))
• ;画矩形，VBA调用AddLightWeightPolyline方法后面必须是Variant[变体] (双精度数组)
• ;所以关键是需要在lisp中先创建双精度数组，然后把点表放进数组里，最后转化为数组型变体,调用AddLightWeightPolyline方法就能成功。
• (setq lstt (append pt1 pt3 pt2 pt4))
• (setq safe (vlax-make-safearray vlax-vbDouble '(0 . 7)));创建一个Double类型的维数组
• (setq safe_lstt(vlax-safearray-fill safe lstt));把值表加入安全数组。
• (setq var_safe (vlax-make-variant safe_lstt));构建一个安全数组的变体
• (setq recc (Vlax-Invoke-Method (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'ModelSpace) 'AddLightWeightPolyline var_safe));调用AddLightWeightPolyline方法
• (Vlax-Put-Property recc 'Closed -1)
• (princ)
• )
• 
  

   

  ====================水吉空出品===================
   微信公众号：通信工程与CAD

   

dragoon33333

人家都在lisp转c#，你这个转vba的不多呀

水吉空

dragoon33333 发表于 2018-10-18 13:31
人家都在lisp转c#，你这个转vba的不多呀

一步一步来