[编程申请]：选择数字(能框选)，则在数字的基准点产生一个边长为该数字值的矩形

xyp1964

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

(defun c:test ()
  (cmdla0)
  (setq        SS (ssget '((0 . "TEXT")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq leng (/ (atoi (dxf 1 (entget s1))) 2)
          pt   (dxf 10 (entget s1))
          rad  (+ leng 300)
    )
    (mkla"中心线"3)
    (xyp_szx pt 100)
    (mkla"圆"4)
    (command "circle" pt rad)
  )
  (cmdla1)
)
[/php]

lengliqun

若字符为middle形式，非left形式，我希望能以字符为中点产生正方形，而不是以字符左下点为中心产生正方形。
我的我这样要求的原因：文字经过LSP程序“圆内文字对齐到圆心”后，全部变成了对齐到middle,若用chtext.lsp命令修改成对齐到left,则位置会不准确。
两种情况分开编程出可以。附件有详细说明，请下载。谢谢。

xyp1964

可以自己学着改改：把dxf 10代码改为dxf 11，如果没设对齐方式，可能会出错。针对附图2的情况通过测试。一般情况下，text文本最好采用mc（middle center）方式对齐，更改有关属性不会“移位”。
[php]
(defun c:test ()
  (cmdla0)
  (setq        SS (ssget '((0 . "TEXT")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq leng (/ (atoi (dxf 1 (entget s1))) 2)
          pt   (dxf 11 (entget s1))
          pt1  (list (- (car pt) leng) (- (cadr pt) leng))
          pt2  (list (+ (car pt) leng) (+ (cadr pt) leng))
    )
    (mkla "中心线" 3)
    (xyp_szx pt 100)
    (mkla "外框" 4)
    (command "rectang" pt1 pt2)
  )
  (cmdla1)
)
[/php]

li809

谢谢各位高手

gzylxp

能否在把原来的数字删除