[讨论][求助]请各位大大教教小弟

ljs026 · 发表于 2004-8-12 20:57:00

小弟用的是2002，想请教几个问题？
1.请问EATTEDIT 和ddedit可以合併吗？一个指令可以完成2种动作，意即可以编辑文字，也可以编辑属性？
2.(defun C:balloon2 (/ 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)]:请各位大大教教小弟