如何让矩形框和文本关联起来

cinee

如题，比如我需要满足以下条件：1、输入文本值，比如（400）
                                                     2、再获取一点，根据这一点画一个矩形框（矩形框的长度值就是输入的文本值400，宽度值是固定的）、
                                                     3、让文本书写的大小只能在矩形框内
                                                     4、如果后期矩形框长度发生变化，文本值也跟着改变。且，如果文本值后期发生改变，矩形框也跟着变化？
                                     以我目前对lisp的认识，只能完成前两项。后面两项就不知道怎么做了，还请各位帮帮忙哈，谢谢！

newer

把你前两项实现的代码贴上来吧。

cinee

newer 发表于 2017-4-27 17:21

(defun c:qb()
  (setvar "cmdecho" 0)
   (setq ss(getstring"\n输入模板型号"))
   (setq x1(xd::string:regexps "[a-zA-Z]+|[0-9]+" ss ""))
   (setq kd(car x1))
  (setq kd_1(atof kd))
   (setq lx(cadr x1))
   (setq cd(caddr x1))
   (setq ss_new(strcat kd " "  lx " "  cd ))
   (princ "\n拾取参考点")
   (setq p1(getpoint))
  (setq x1(car p1))
  (setq y1 (cadr p1))
   (setq x3(+ kd_1 (car p1)))
  (setq y3 (- (cadr p1) 65))
  (setq p3(list x3 y3 0))
   (setq pp(list(+ x1 (/ (- x3 x1) 2)) (+ y1 (/ (- y3 y1) 2))))
   (command "rectang" p1 p3 )
  (command "text" "j" "m" pp  40 "" ss_new )
  )

写的很粗糙哈，还请见谅！

newer

cinee 发表于 2017-4-27 17:32

你还应该告诉大家，文本输入数据的格式，怎么输？
还有把结果也截取个图片贴上来。
就是尽可能的让大家根据你的描述知道要做什么。

cinee

newer 发表于 2017-4-27 17:39

不好意思哈，下次发帖时会注意了。
如图，1、文本输入格式是“400W2600”,文本大小需在矩形框内。及时矩形框缩小，文本大小也会随着缩小；
2、需要得到图1效果，文本中间有空格“400 W 2600”，矩形框的长度是文本中的“400”，矩形框宽度是65；

3、在完成图1后，用鼠标拖动矩形框，使其矩形框长度变化，如图2，我缩小长度至300，文本框中内容也变成“300 W 2600”

marting

cinee 发表于 2017-4-27 17:49

要想关联，就用对象反应器，但是只能是单向的，比如，文字变了，框跟着变。  但是不能同时框变，文字也变，要是这样，是不是就死循环了？

其实，能不能换个思路，这种小的应用为什么要那么智能，增加图纸出错的概率。写好文字后，提供个工具根据文字大小临时画框就行了，编辑文字也提供个工具，修改后，再找到外框删除掉重新画。

pxt2015

marting 发表于 2017-4-27 17:58

言之有理，非常赞同。

cinee

marting 发表于 2017-4-27 17:58

谢谢哈，刚才了解到有反应器这东西，我去学习下。单向也行，现在只是以学习为主。

wx_EKdL75Rx

碰见同了！模板设计！