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

ljs026

小弟用的是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)]: 请各位大大教教小弟

alin

1. 双击



2. 可能你的字高设置有问题

ljs026

大大！我不懂你的意思耶，可以再说明白一点吗？