生成

st788796 · 发表于 2014-3-10 20:21:02

abc498091367 发表于 2014-3-10 19:40
插入点: ; 错误: no function definition: XDRX_TABLE_MAKE

什么版本CAD？

abc498091367 · 发表于 2014-3-10 20:25:14

st788796 发表于 2014-3-10 20:21
什么版本CAD？

2004版本....

st788796 · 发表于 2014-3-10 20:50:21

abc498091367 发表于 2014-3-10 20:25
2004版本....

那没办法了，2005以上才有的Table

abc498091367 · 发表于 2014-3-10 21:13:00

st788796 发表于 2014-3-10 20:50
那没办法了，2005以上才有的Table

哦，那能不能用其他的函数，不用晓东的,,,

st788796 · 发表于 2014-3-10 21:48:47

abc498091367 发表于 2014-3-10 21:13
哦，那能不能用其他的函数，不用晓东的,,,

可以不要格线

abc498091367 · 发表于 2014-3-10 22:02:02

st788796 发表于 2014-3-10 21:48
可以不要格线

我就想符号，数量在一排，这样一排下来看起好看点
符号数量
A    5
A    5
A    5
A    5

st788796 · 发表于 2014-3-11 07:55:06

abc498091367 发表于 2014-3-10 22:02
我就想符号，数量在一排，这样一排下来看起好看点
符号数量
A 5

那就简单点

(defun c:tt (/ ss lst i p v wd _mktext)
(defun _mktext (p str / txt)
(setq txt (xdrx_text_make p str (getvar "textsize") 0.))
(xdrx_text_sethozmode txt 4)
(xdrx_text_setvermode txt 2)
(xdrx_text_setalignmentpoint txt p)
)
(princ "\n选择多义线.....")
(if (setq ss (ssget '((0 . "*polyline"))))
(progn
(setq lst (mapcar '(lambda (x / bp)
(setq bp (car (xdrx_entity_box x)))
(list (mapcar '(lambda (p)
(mapcar '- p bp)
)
(xdrx_entity_getstretchpoint x)
)
x
)
)
(xdrx_pickset->ents ss)
)
lst (xd::list:groupbyindex lst 1)
lst (mapcar 'cdr lst)
)
(XD::Begin)
(setq i 64 ;_编号数量不大於 52 个 A-Z a-z
lst (mapcar '(lambda (x / box p)
(if (> 97 i 90)
(setq i 96)
)
(setq i (1+ i))
(mapcar '(lambda (a)
(_mktext
(apply 'xdrx_points_centroid
(xdrx_entity_box a)
)
(chr i)
)
)
x
)
(list (chr i) (itoa (length x)))
)
lst
)
)
(if (setq p (getpoint "\n插入点<回车显示>: "))
(progn
(setq wd (XD::String:ActualWidth "编号" "" (getvar "textsize") 1.)
v (list 0. (* -1.5 (getvar "textsize")) 0.)
)
(foreach x (cons '("编号" "数量") lst)
(_mktext p (car x))
(_mktext (polar p 0. (+ wd wd)) (cadr x))
(setq p (mapcar '+ p v))
)
)
(foreach x lst
(princ "\n")
(princ x)
)
)
(XD::End)
)
)
(princ)
)

(defun c:tt (/ ss lst i p v wd _mktext) 
  (defun _mktext (p str / txt) 
    (setq txt (xdrx_text_make p str (getvar "textsize") 0.)) 
    (xdrx_text_sethozmode txt 4) 
    (xdrx_text_setvermode txt 2) 
    (xdrx_text_setalignmentpoint txt p) 
  ) 
  (princ "\n选择多义线.....") 
  (if (setq ss (ssget '((0 . "*polyline")))) 
    (progn 
      (setq lst        (mapcar        '(lambda (x / bp) 
                           (setq bp (car (xdrx_entity_box x))) 
                           (list (mapcar '(lambda (p) 
                                            (mapcar '- p bp) 
                                          ) 
                                         (xdrx_entity_getstretchpoint x) 
                                 ) 
                                 x 
                           ) 
                         ) 
                        (xdrx_pickset->ents ss) 
                ) 
            lst        (xd::list:groupbyindex lst 1) 
            lst        (mapcar 'cdr lst) 
      ) 
      (XD::Begin) 
      (setq i        64 ;_编号数量不大於 52 个 A-Z a-z 
            lst        (mapcar        '(lambda (x / box p) 
                           (if (> 97 i 90) 
                             (setq i 96) 
                           ) 
                           (setq i (1+ i)) 
                           (mapcar '(lambda (a) 
                                      (_mktext 
                                        (apply 'xdrx_points_centroid 
                                               (xdrx_entity_box a) 
                                        ) 
                                        (chr i) 
                                      ) 
                                    ) 
                                   x 
                           ) 
                           (list (chr i) (itoa (length x))) 
                         ) 
                        lst 
                ) 
      ) 
      (if (setq p (getpoint "\n插入点<回车显示>: ")) 
        (progn 
          (setq        wd (XD::String:ActualWidth "编号" "" (getvar "textsize") 1.) 
                v  (list 0. (* -1.5 (getvar "textsize")) 0.) 
          ) 
          (foreach x (cons '("编号" "数量") lst) 
            (_mktext p (car x)) 
            (_mktext (polar p 0. (+ wd wd)) (cadr x)) 
            (setq p (mapcar '+ p v)) 
          ) 
        ) 
        (foreach x lst 
          (princ "\n") 
          (princ x) 
        ) 
      ) 
      (XD::End) 
    ) 
  ) 
  (princ) 
)

abc498091367 · 发表于 2014-3-11 09:20:35

st788796 发表于 2014-3-11 07:55
那就简单点

命令: test
选择多义线.....
选择对象: 指定对角点: 找到 18 个
选择对象:
插入点<回车显示>: ; 错误: *error* 函数中出错参数太多
命令: 指定对角点:

abc498091367 · 发表于 2014-3-11 15:11:10

st788796 发表于 2014-3-11 07:55
那就简单点

插入点<回车显示>: ; 错误: *error* 函数中出错参数太多

st788796 · 发表于 2014-3-11 16:24:06

函数库中的xd::string:actualwidth有问题，把上面帖子中该函数拷贝到前面加载

abc498091367 · 发表于 2014-3-12 09:15:55

st788796 发表于 2014-3-11 16:24
函数库中的xd::string:actualwidth有问题，把上面帖子中该函数拷贝到前面加载

程序OK 我xd::string:actualwidth放在最前面,OK了

账号		自动登录	找回密码
密码			立即注册

[求助] 生成

点评

点评

点评

点评

点评