分享雙向偏移lsp
3 posters
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
分享雙向偏移lsp
分享雙向偏移lsp 論壇獲益良多分享一個小程序。
(defun c:oo()
(setq en(car(entsel)))
(setq odist(getreal "\n请输入偏移距离"))
(setq huo(* -1 odist))
(setq obj(vlax-ename->vla-object en))
(vla-Offset obj odist)
(vla-Offset obj huo)
;(entdel en)
(princ)
)
(defun c:o2(/ ss i obj)
(if (not pykd) (setq pykd 40))
(setq pykd (cond ((getdist(strcat "\n输入宽度<" (rtos pykd 2 2)
">:"))) (pykd)))
(if (setq ss(ssget (list (cons 0 "line,arc,spline,lwpolyline,polyline,circle,ellipse"))))
(progn
(repeat (setq i(sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss(setq i(- i 1)))))
(vla-offset obj (/ pykd 2.0))
(vla-offset obj (/ pykd -2.0))
)
(princ)
)))
(defun c:oo()
(setq en(car(entsel)))
(setq odist(getreal "\n请输入偏移距离"))
(setq huo(* -1 odist))
(setq obj(vlax-ename->vla-object en))
(vla-Offset obj odist)
(vla-Offset obj huo)
;(entdel en)
(princ)
)
(defun c:o2(/ ss i obj)
(if (not pykd) (setq pykd 40))
(setq pykd (cond ((getdist(strcat "\n输入宽度<" (rtos pykd 2 2)
">:"))) (pykd)))
(if (setq ss(ssget (list (cons 0 "line,arc,spline,lwpolyline,polyline,circle,ellipse"))))
(progn
(repeat (setq i(sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss(setq i(- i 1)))))
(vla-offset obj (/ pykd 2.0))
(vla-offset obj (/ pykd -2.0))
)
(princ)
)))
zhangcan0516- 初級會員
- 文章總數 : 82
年齡 : 33
來自 : 彰化
職業 : 結構工程師
愛好 : CAD,lisp,c,c++,vb
個性 : 温和
使用年資 : 5
使用版本 : 12
積分 : 1
經驗值 : 4068
威望值 : 36
注冊日期 : 2014-10-23
eses likes this post
回復: 分享雙向偏移lsp
謝謝你的熱心分享~
____________________________________________________________________________________
👉[訂購]AutoCAD圖塊大師課程(點我)👈
回復: 分享雙向偏移lsp
感謝熱心分享~~
eses- 一般會員
- 文章總數 : 7
年齡 : 45
來自 : 新竹
職業 : 製造
愛好 : 設計
個性 : 製圖
使用年資 : 10
使用版本 : 2004
經驗值 : 2994
威望值 : 0
注冊日期 : 2016-09-01
AutoCAD顧問 :: 技術(發言等級:一般會員) :: :: 進階討論
第1頁(共1頁)
這個論壇的權限:
您 無法 在這個版面回復文章