直线偏移的问题？

欲海猛男 · 发表于 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）

账号		自动登录	找回密码
密码			注册

[函数] 直线偏移的问题？

点评