[分享]：[分享]网上收集的AutoLISP程序源码

jx2008

对初学者很有帮助，支持

dwg001

XD的魅力，来自长老这样的热心人。支持！

szx025

绝对的好
支持
顶顶顶定点顶
我参照编了一个在240厚墙上画门的程序：
(DEFUN C:DOOR1 (/ P1 P2 pt1 pt2 pt3 pt4 ) (SETQ P1 (GETPOINT "\nSelect door hinge point : ")
P2 (GETPOINT P1 "\nSelect door second point : ")
DIST_1 (getdist "\n门宽:")
PT_SIDE (GETPOINT "\nSelect door open side : ")
ANGE_1 (ANGLE P1 P2) ANGE_2 (/ PI 2)
P2 (polar P1 ANGE_1 DIST_1))
(SETvar "OSMODE" 0)
(setq pt1 (polar P1 (+ ANGE_1 (* 0.5 pi)) 120))
(setq pt2 (polar P1 (+ ANGE_1 (* 1.5 pi)) 120))
(setq pt3 (polar P2 (+ ANGE_1 (* 0.5 pi)) 120))
(setq pt4 (polar P2 (+ ANGE_1 (* 1.5 pi)) 120))
(COMMAND "BREAK" pt1 "F" pt1 pt3)
(COMMAND "BREAK" pt2 "F" pt2 pt4)
(command "line" pt1 pt2 "")
(command "line" pt3 pt4 "")
(SETQ PT_TMP2 (POLAR P1 (+ ANGE_1 ANGE_2) 1000)
PT_TMP3 (POLAR P1 (- ANGE_1 ANGE_2) 1000))
(IF (< (DISTANCE PT_SIDE PT_TMP2) (DISTANCE PT_SIDE PT_TMP3))
(SETQ ANGE_3 (+ ANGE_1 ANGE_2) ANGE_4 (+ ANGE_1 (/ PI 4)))
(SETQ ANGE_3 (- ANGE_1 ANGE_2) ANGE_4 (- ANGE_1 (/ PI 4))))
(SETQ PT_TMP2 (POLAR P1 ANGE_3 DIST_1)
PT_TMP3 (POLAR P1 ANGE_4 DIST_1))
(COMMAND "PLINE" P1 PT_TMP2 "A" "S" PT_TMP3 P2 "")
) ;关闭PROGN及IF
;(setvar "osmode" 32)
(princ)
有一点小问题，请高手指点
如作一条辅助（方便定位门位置）穿过PT1，P1 ，PT2，程序执行后打断的不是PT1~PT3，而是PTI~PT2。
另：我绝的7~10行没有实际意义。

ygrzz

看 lisp 让我对CAD又多了一分喜爱

tdgc

太谢谢了,希望能有更多的例子.

黄河之水

我路过此,看了也想说声谢谢了

szx025

绝对的好
支持
顶顶顶定点顶
我参照编了一个在240厚墙上画门的程序：
(DEFUN C:DOOR1 (/ P1 P2 pt1 pt2 pt3 pt4 ) (SETQ P1 (GETPOINT "\nSelect door hinge point : ")
P2 (GETPOINT P1 "\nSelect door second point : ")
DIST_1 (getdist "\n门宽:")
PT_SIDE (GETPOINT "\nSelect door open side : ")
ANGE_1 (ANGLE P1 P2) ANGE_2 (/ PI 2)
P2 (polar P1 ANGE_1 DIST_1))
(SETvar "OSMODE" 0)
(setq pt1 (polar P1 (+ ANGE_1 (* 0.5 pi)) 120))
(setq pt2 (polar P1 (+ ANGE_1 (* 1.5 pi)) 120))
(setq pt3 (polar P2 (+ ANGE_1 (* 0.5 pi)) 120))
(setq pt4 (polar P2 (+ ANGE_1 (* 1.5 pi)) 120))
(COMMAND "BREAK" pt1 "F" pt1 pt3)
(COMMAND "BREAK" pt2 "F" pt2 pt4)
(command "line" pt1 pt2 "")
(command "line" pt3 pt4 "")
(SETQ PT_TMP2 (POLAR P1 (+ ANGE_1 ANGE_2) 1000)
PT_TMP3 (POLAR P1 (- ANGE_1 ANGE_2) 1000))
(IF (< (DISTANCE PT_SIDE PT_TMP2) (DISTANCE PT_SIDE PT_TMP3))
(SETQ ANGE_3 (+ ANGE_1 ANGE_2) ANGE_4 (+ ANGE_1 (/ PI 4)))
(SETQ ANGE_3 (- ANGE_1 ANGE_2) ANGE_4 (- ANGE_1 (/ PI 4))))
(SETQ PT_TMP2 (POLAR P1 ANGE_3 DIST_1)
PT_TMP3 (POLAR P1 ANGE_4 DIST_1))
(COMMAND "PLINE" P1 PT_TMP2 "A" "S" PT_TMP3 P2 "")
) ;关闭PROGN及IF
;(setvar "osmode" 32)
(princ)
有一点小问题，请高手指点
如作一条辅助线（方便定位门位置）穿过PT1，P1 ，PT2，程序执行后打断的不是PT1~PT3，而是PTI~PT2。（如没有辅助线，程序能正常执行）
另：我绝的7~10行没有实际意义。

shute05

对初学者有用

zlf2010

刚刚接触这个，谢谢分享