AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
分享雙向偏移lsp Io15010 分享雙向偏移lsp 2020-310 分享雙向偏移lsp Oiu15010 分享雙向偏移lsp 2020-211 分享雙向偏移lsp Oo-2-110 分享雙向偏移lsp BPl3tjj

分享雙向偏移lsp

向下

分享雙向偏移lsp Empty 分享雙向偏移lsp

發表 由 zhangcan0516 于 2018-11-16, 23:19

分享雙向偏移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)
)))
zhangcan0516
zhangcan0516
初級會員
初級會員

文章總數 : 71
年齡 : 29
來自 : 彰化
職業 : 結構工程師
愛好 : CAD,lisp,c,c++,vb
個性 : 温和
使用年資 : 5
使用版本 : 12
積分 : 1
經驗值 : 2583
威望值 : 24
注冊日期 : 2014-10-23
男 白羊座 羊

回頂端 向下

分享雙向偏移lsp Empty 回復: 分享雙向偏移lsp

發表 由 Tiger&蘋果爸 于 2018-11-18, 14:23

謝謝你的熱心分享~
讚啦!!

____________________________________________________________________________________
分享雙向偏移lsp Oo-2-110 分享雙向偏移lsp Ia15010 分享雙向偏移lsp Ziao1510 分享雙向偏移lsp BPl3tjj
Tiger&蘋果爸
Tiger&蘋果爸
系統管理員
系統管理員

文章總數 : 19444
年齡 : 44
來自 : 台北市文山區
職業 : AutoCAD顧問
愛好 : 蹓狗/戶外活動/拍照
個性 : 幽默/樂觀/善良
使用年資 : 20↑
使用版本 : AutoCAD 2021
經驗值 : 77219
威望值 : 14792
注冊日期 : 2008-04-23
2D基礎函授 2D進階函授 3D基礎函授 https://i.servimg.com/u/f11/19/71/67/71/2d3d10.png2D+3D線上 顧問外掛程式 經典問與答讀者 藍鵲1號
2009聚會勳章 2010聚會勳章 2011聚會勳章 2012聚會勳章 2013勳章-2D基礎 2014聚會勳章 2015聚會勳章 2016聚會勳章 串連貼紙成功 男 水瓶座 兔

http://mypaper.pchome.com.tw/kv1012tiger

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
分享雙向偏移lsp Uos15010 分享雙向偏移lsp BPl3tjj 分享雙向偏移lsp Ziao1510 分享雙向偏移lsp Oo-2-110 分享雙向偏移lsp Oooo-110 分享雙向偏移lsp 2020-211