欲海猛男 发表于 2010-12-28 20:07:18

直线偏移的问题？

对一条直线偏移后如何得到偏移的直线的实体名称？
对直线打断后直线的名称？

logoin 发表于 2010-12-28 20:27:50

(defun c:os()
(vl-load-com)
(setq AcadObject (vlax-get-acad-object)
      AcadDocument (vla-get-ActiveDocument AcadObject)
      mSpace (vla-get-ModelSpace AcadDocument))

(princ "选择直线")
(setq line (car (entsel)))
(setq vlaObj (vlax-ename->vla-object line))
(setq offsetObj (vla-offset vlaObj 5))
(setq offsetObj1 (vlax-safearray-get-element (vlax-variant-value offsetObj) 0)) ;;这个就offsetObj1就是你想要的东西吧
;比如下面改变offset生成的线为红色
(vla-put-color offsetObj1 acRed)

(setq offsetEname (vlax-vla-object->ename offsetObj1))   ;或者转成图元

(princ)
)

欲海猛男 发表于 2010-12-28 20:32:20

vl vla vlax 是什么含义？

461045462 发表于 2010-12-29 07:46:59

谢谢logoin
收藏了，学习研究研究。
请问改成其它颜色怎样修改？
谢谢

yoyoho 发表于 2010-12-29 08:39:41

!感谢楼主分享
下载学习了

zml84 发表于 2010-12-29 09:00:41

问：对一条直线偏移后如何得到偏移的直线的实体名称？
答：（entlast）
页: [1]
查看完整版本: 直线偏移的问题？