[求助]：自动输入数字文本插入圆圈型标识

LMCC

不懂用,请教.
(defun c:b1( / d h B n DS CLAY PP1 DU DM TA DA) 自动输入数字文本插入圆圈型标识
   (SetQ DS (GETVAR "DIMSCALE"))
   (SetQ ORTH (GETVAR "ORTHOMODE"))
   (SETVAR "ORTHOMODE" 0)
   (setq d (/ DS 0.25))
   (setq h (/ DS 0.4))
   (PRINC "\n请输入一个起点整数:")
   (SETQ n (getint))
   (SETQ FHA n)
   (setq PP1 (getpoint "\n选择或输入起始点:"))
   (while (AND (/= pp1 nil))
     (progn
          (command "circle" pp1 "d" d  )
          (setq ta (ssget "L"))
          (SETQ K1 FHA)
          (command "textstyle" "SIMPLE" )
          (command "text" "j"  "mc" pp1 h "" K1 )
          (setq Da (ssget "L"))
          (SETQ FHA (+ FHA 1))
          (command "CHANGE" ta DA ""  "p" "La" "BH" "")
          (command "textstyle" "宋体" )
          (if (/= pp1 nil)
              (setq pp1 (getpoint pp1 "\nPrint start point:" ))
              (setq pp1 (getpoint "\nPrint start point:"))
              )
   )
)
(SETVAR "ORTHOMODE"  ORTH)
)

tjchkys

说简单一点儿，就是在你输入的数字上面画了个圆而已
这个程序主要功能就是这个，有什么地方不懂的？

hillo

说简单一点儿，就是在你输入的数字上面画了个圆，不懂的？

LMCC

可是我做不成,只有一个圆圈,数字没有,提示出错,

xiaotang

最初由 LMCC 发布
[B]可是我做不成,只有一个圆圈,数字没有,提示出错, [/B]

要看提示的出错信息是什么，一般是楼主没有程序对应的文字样式导致的
另外想利用这个程序达到以下要求：
1、文字样式名称S2
2、没有图示红框中的内容，即输入数字后，出现带圈的字符，命令结束，带圈字符自动在当前图层生成
3、最好能输入带字母的文字，而不是简单地输入整数
谁能帮助整理以下吗？我不会LSP，谢谢

LMCC

我的是这样的,是程序有问提吗?
Command: b1
请输入一个起点整数:1
选择或输入起始点:
Cannot set TEXTSTYLE to that value.
错误 : Function cancelled*Invalid*

my_autocad

你安装CAD的exrresstolls程序没有呢,cad自带的程序呀,你在里面找找吧

xiaotang

最初由 LMCC 发布
[B]我的是这样的,是程序有问提吗?
Command: b1
请输入一个起点整数:1
选择或输入起始点:
Cannot set TEXTSTYLE to that value.
错误 : Function cancelled*Invalid* [/B]

程序能使用的，你把(command "textstyle" "SIMPLE" )中的SIMPLE与(command "textstyle" "宋体" )中的宋体改为你图形中现有的文字样式即可