autocad vba 如何得到最新的图元
2个回答
展开全部
;autolisp里面:
(entmake (list '(0 . "LINE") (cons 10 '(5 13 0)) (cons 11 '(5 27 0))));绘制直线
(setq ent (entlast));得到最后图元
(setq obj (vlax-ename->vla-object ent));转换为vlax图元
;vlisp里面
(setq modelSpace (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))));取得模型空间图元集合
(setq startPoint (vlax-3d-point 5 13 0) endPoint (vlax-3d-point 5 27 0));设置直线的起点与端点
(setq lineObj (vla-AddLine modelSpace startPoint endPoint));绘制直线得到图元
;得到的图元就是(lineObj)
;VBA的话，参考一下以上方法，本人不懂VBA
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
