[LISP函数]：请高人帮我完美这个函数

coldhope · 发表于 2004-10-9 18:09:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(DEFUN C:BK () (SETQ OSM (GETvar "OSMODE")) (SETvar "OSMODE" 512)
(SETQ PT_TMP1 (GETPOINT "\nFirst point :"))
(SETQ PT_TMP2 (GETPOINT PT_TMP1 "\nSecond point :")) (SETvar "OSMODE" 0)
(SETQ DST1 (GETDIST "\nDistance point :" PT_TMP2)
ANGE1 (/ PI 2) DST2 (/ (DISTANCE PT_TMP1 PT_TMP2) 4)
ANGE2 (ANGLE PT_TMP1 PT_TMP2)
PT_TMP3 (POLAR PT_TMP1 ANGE2 DST2)
PT_TMP4 (POLAR PT_TMP3 (+ ANGE2 ANGE1) DST1)
PT_TMP3 (POLAR PT_TMP1 ANGE2 (* DST2 3))
PT_TMP5 (POLAR PT_TMP3 (- ANGE2 ANGE1) DST1))
(COMMAND "BREAK" PT_TMP1 PT_TMP2)
(COMMAND "PLINE" PT_TMP1 PT_TMP4 PT_TMP5 PT_TMP2 "")
(SETvar "OSMODE" OSM) (PRINC))

一个关于断面折线的程序，但是有漏洞：每次用完bk这个命令后，曾经设置的典捕捉模式都被清空，替换成最近点模式，很麻烦的；
另外我经常用下图的样子：多谢大侠

梦断江南 · 发表于 2004-10-9 20:03:42

从程序结构上看,捕捉模式已经做了恢复处理.

aeo · 发表于 2004-10-10 01:46:30

(COMMAND "BREAK" PT_TMP1 PT_TMP2)
并不是总能完成!

xyp1964 · 发表于 2004-10-10 13:31:39

加载折断线程序。
程序命令: ZDX(折断线)；BLX（波浪线）；BZX（波折线） -- XYP@bsedi.com

xyp1964 · 发表于 2004-10-10 13:34:50

上帖的附图：

coldhope · 发表于 2004-10-11 11:46:07

多谢，受益不浅

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

[LISP函数]：请高人帮我完美这个函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块