[LISP函数]：一个很好用的画截断线的LISP

ruppychen · 发表于 2004-6-29 22:35:22

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

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

×

一个很好用的画截断线的LISP
defun c:JDX ()
   (setq oldos (getvar "osmode"))
   (setq oldpk (getvar "pickbox"))
   (setvar "pickbox" 0)
   (setvar "osmode" 0)
   (setq scal1 (getreal "\nenter the relative <12>:"))
   (if (= scal1 nil) (setq scal1 12))
   (setq XY1 (getpoint "\nfirst  point:"))
   (setq XY2 (getpoint XY1 "\nsecnod point:"))
   (brkli scal1 XY1 XY2)
   (setvar "pickbox" oldpk)
   (setvar "osmode"  oldos)
)
(defun brkli (scal1 XY1 XY2)
   (setq a (angle XY1 XY2))
   (setq d (distance XY1 XY2))
   (setq XY3 (polar XY1  a (/ d 2)))
   (setq XY4 (polar XY3  (- a (* 4 (/ pi 4))) (* (/ d scal1) 1 )))
   (setq XY5 (polar XY3  (+ a (* 3 (/ pi 4))) (* (/ d scal1) 1.414)))
   (setq XY6 (polar XY3  (- a (* 1 (/ pi 4))) (* (/ d scal1) 1.414)))
   (setq XY7 (polar XY3  (- a (* 0 (/ pi 4))) (* (/ d scal1) 1 )))
   (command "pline" XY1 "w" "0" "0" XY4 XY5 XY6 XY7 XY2 "")
   (setvar "pickbox" oldpk)
   (setvar "osmode"  oldos)
)

shisj · 发表于 2004-6-29 22:44:13

程序没法执行
前面少了一个括号

aidraft · 发表于 2004-6-30 01:07:20

有需要将PICKBOX设为0 吗？

shisj · 发表于 2004-6-30 09:01:15

这个到是需要，避免选择的点捕捉到不需要的地方，比如圆心、端点等。

aidraft · 发表于 2004-6-30 09:16:59

PICKBOX is object selection target height and has nothing to do with Snap

ywt · 发表于 2004-6-30 14:55:28

的确挺好用的，但是截断线形状如何修改？

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

[LISP函数]：一个很好用的画截断线的LISP

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

相关帖子

浏览过的版块