[LISP函数]：用LISP出现了虚拟点的问题。

rd16 · 发表于 2004-5-15 18:37:30

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

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

×

用了本论坛上的这段程序出现了一个奇怪的问题，请大家帮忙解决。

(defun c:spr (/ SD ED THS THSN THSH THS TAS NVSN NVS STEP X Y Z R A H)
(setq oldos (getvar "osmode"))
(setvar "osmode" 0)
(setq b1 (getpoint "基点"))
(setq SD (/ (getreal "弹簧起始直径: ") 2))
(setq ED (/ (getreal "弹簧終點直径: ") 2))
(setq THSN (getreal "圈数"))
(setq THSH (getreal "每圈高度"))
(setq THS (* THSN THSH))
(setq TAS (* 360 THSN))
(setq NVSN (getreal "间隔角度"))
(setq NVS (+ (fix (/ TAS NVSN)) 1))
(setq STEP (- NVS 1))
(setq X (/ (- ED SD) STEP))
(setq Y (/ THS STEP))
(setq Z (/ TAS STEP))
(setq bb (caddr b1))
(setq R SD)
(setq A 0)
(setq H 0)
(setvar "CMDECHO" 0)
(command "UCS" "O" B1)
(command "3DPOLY"
(strcat (rtos R) "<" (rtos A) "," (rtos H))
)
(repeat STEP
(setq A (+ A Z))
(setq H (+ H Y))
(setq R (+ R X))
(command (strcat (rtos R) "<" (rtos A) "," (rtos H)))
)
(command "")
(setvar "CMDECHO" 1)
(setvar "osmode" oldos)
(princ)
)

自由的鱼 · 发表于 2004-5-15 18:48:44

blipmode=0

marcol · 发表于 2004-5-15 19:19:51

这种点重生成一下应该就没了吧？？

lzy9788 · 发表于 2004-5-16 11:21:13

重生成下也行，改BLIPMODE也行。

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

[LISP函数]：用LISP出现了虚拟点的问题。

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

相关帖子