[编程申请]：想了几个方案，不知道如何实施，请高手编程

liuli117

1、目的：加图名线
     具体描述：建筑图中，一般有xx大样图，然后xx大样图下面一般是一道粗线+1道细线，根据字高和字数不同，可以自动转化长度比例，是图名线能自动符合其上的文字。
2、目的：长文字的打断并换行
    具体描述：在一段长文字中，点击其中的某点，则该点后的文字自动截断并换行
3、目的：文字加外框
    具体描述：根据文字长度，在文字外offset一定距离（可自定义）加上矩形或者圆形外框
4、 目的：递增复制
    具体描述，我用了晓东的工具箱，里面有这个功能，但是似乎只能对全数字的 有效，能否实现如“xxx1”复制后为“xxx2”的功能

以上是我的一些问题，希望各位大虾能够帮我实现，谢谢
另外，我想学习一下lisp编程，但是没有找到好的基础教程，不知道各位高手能否指路？谢谢

my_autocad

第一个问题：是先有线，再有字；呵呵，我通常是把图名及线做成模板，需要时调用就是了，一样的方便；
第四个问题：我也需要这样的程序，只不过我的格式是，LD-3.01.1这样递增！有了字母，有了小数间隔，他们不代表数学意义，仅是符号；

Weiny

用自带的VBA就可以咯，学一下，很容易的。

liuli117

高手看一下怎么实现这些功能呀

AyungerStudio

看看"非常好用的AutoLisp工具集合"中就有你所需要的功能。
1、图名文字下划线
2、文字加外框(圆形/矩形)

liuli117

我就是想要一个分开的lisp，方便使用

qiaqiadeng

(princ "\nrx  在对象外围画矩形")
(defun c:rx (/ xz num i obj minp maxp x1 y1 x2 y2 sc)
  (princ "在对象外围画矩形")
  (if (setq sc (getreal "\n请输入左边距系数<0.1>:"))
     (setq sc sc)
     (setq sc 0.1)
  )
  (setq &olderr& *error*)
  (setq *error* *$dyq-error$*)
  (vl-load-com)
  (setq oldstatus (dyq-get-oldstatus)) ;存储系统变量
  (dyq-new-layer "Defpoints" 6)
  (setvar "OSMODE" 0)
  (setq xz (ssget))
  (setq num (sslength xz))
  (setq i 0)
  (repeat num
    (setq obj (ssname xz i))
    (entmod (entget obj))
    (vla-getboundingbox
      (vlax-ename->vla-object obj)
      'minp
      'maxp
    )
    (setq minp (vlax-safearray->list minp))
    (setq maxp (vlax-safearray->list maxp))
    (if        (= i 0)
      (progn
        (setq x1 (car minp))
        (setq y1 (cadr minp))
        (setq x2 (car maxp))
        (setq y2 (cadr maxp))
      )
      (progn
        (setq x1 (min x1 (car minp)))
        (setq y1 (min y1 (cadr minp)))
        (setq x2 (max x2 (car maxp)))
        (setq y2 (max y2 (cadr maxp)))
      )
    )
    (setq i (+ i 1))
  )
  (setvar "clayer" "Defpoints")
  (command "rectang" (list (- x1 (* sc (abs (- x1 x2)))) y1 0) (list x2 y2 0))
  (dyq-put-oldstatus oldstatus) ;还原系统变量
  (setq *error* &olderr&)
  (princ)
)

bikeboy

最初由 liuli117 发布
[B]高手看一下怎么实现这些功能呀 [/B]

这个下不了啊

houbuisme

好复杂哦。