;;;

下載此文檔后，將所有文字復制到文本文檔保存，再將文本文檔的后綴

txt

更改為

lsp

，啟動

CAD

后加載此文件即可使用

;;;***

雙向偏移直線

程序開始

***

(princ?"

加載程序成功，輸入

doo

命令可應用此工具

\n")

(defun?c:doo?(/?ob?di?date?p1?p2?p3?p4?ang1?ang2?ang3?dist?da)

(initget?(+?2?4))

(princ?"\n

★提示

:

雙向偏移直線

.\n")

(setq?da?(getdist?"\n

請輸入單邊偏移量

<1.0>:"))

(if?(null?da)(setq?da?1))

(princ?"\n

★當前單邊偏移量

:")(princ?(rtos?da?2))

(initget?(+?1?2?4))(setq?ob?(entsel?"\n

選定偏移對象

:"))

(while?ob

(setq?date?(entget(car?ob)))

(setq?p1?(cdr?(assoc?10?date)))

(setq?p2?(cdr?(assoc?11?date)))

(setq?ang1?(angle?p1?p2))

(setq?ang2?(+?ang1?(/?pi?2)))

(setq?ang3?(+?ang1?(*?pi?1.5)))

(setq?p3?(polar?p1?ang2?100))

(setq?p4?(polar?p1?ang3?100))

(setq?dist?da)

(command?"LAYER"?"M"?"Double?Offset"?"C"?"YELLOW"?"Double?Offset"?"")

(command?"CLAYER"?"Double?Offset")

(command?"OFFSET"?"L"?"C"?dist?ob?p3?ob?p4?"")

(setq?ob?(entsel))

)

(setvar?"offsetdist"?da)

(princ)

總結

以上是生活随笔為你收集整理的四边偏移lisp_双向偏移lisp的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。