[求助]：請各位大大教教小弟

ljs026 · 发表于 2004-8-19 08:26:59

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

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

×

(defun C:ball (/ origos dimsc dimtx p1 p2 p3 p4 b id)
(setq origos (getvar "osmode"))
(setvar "cmdecho" 0)
(setvar "osmode" 39)
(setq dimsc (getvar "dimscale"))
(setq dimtx (getvar "dimtxt"))
(setq p1 (getpoint "\n箭頭起點： "))
(setq p2 (getpoint p1 "\n引線終點： "))
(if (<= (car p2)(car p1))
(setq b (* -2 dimsc))
(setq b (* 2 dimsc))
)
(setq p3 (list (+ (car p2) (* b 0)) (cadr p2)))
(setq p4 (list (+ (car p3) (* b 1.8)) (cadr p3)))
(setq id (getstring 0 "\n編號/文字："))
(command "line" p1 p2 "")
(command "circle" p4 (* (abs b) 1.8))
(command "text" "m" p4 (* dimtx dimsc) "1" id)
(setvar "osmode" 4621)
(setvar "cmdecho" 1)
(princ)
)

卻出現錯誤

數值必須是正數且非零值.
; 錯誤: 功能已被取消.

指定圓的半徑或 [直徑(D)]:

請各位大大教教小弟

841594 · 发表于 2004-8-19 09:37:31

可能是因为你的dimscale变量值为0。

yjtdkj · 发表于 2004-8-19 09:57:26

兄弟，先说明你的程序的用途吧，我画出来的时候没有出错，但是画出来的东东不知道是什么意思，

ljs026 · 发表于 2004-8-19 10:25:39

不好意思，忘了寫程序作用了，這是一個號球的程序，會出現這樣的錯誤
數值必須是正數且非零值.
; 錯誤: 功能已被取消.
指定圓的半徑或 [直徑(D)]:

請各位大大教教小弟

yjtdkj · 发表于 2004-8-19 13:47:29

建议直接设置一个提示：比例
不要用dimscale等变量

ljs026 · 发表于 2004-8-19 14:47:05

請問如何設置，小弟是菜鳥耶

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

[求助] [求助]：請各位大大教教小弟

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

相关帖子

浏览过的版块