永不言弃 发表于 2013-11-23 16:20:43

范围内文字合并

范围内文字合并



gwar 发表于 2024-12-6 16:28:46

谢谢楼主的分享

zk2140 发表于 2024-12-27 22:48:59

lselsetp nil

香田里浪人 发表于 2013-11-23 16:55:06

无法下载，请楼主再上传

永不言弃 发表于 2013-11-23 16:56:30


香田里浪人 发表于 2013-11-23 17:01:02

永不言弃 发表于 2013-11-23 16:56 static/image/common/back.gif


下载失败，临时文件或其所在磁盘不可写

永不言弃 发表于 2013-11-23 17:10:50


不清楚，我这儿能下载的

香田里浪人 发表于 2013-11-23 17:19:18

不然，请楼主直接发布源码，可否？

永不言弃 发表于 2013-11-23 18:19:19

(defun c:tt ()
(vl-load-com)
(print "选择范围")
(setq ss (ssget (list '(0 . "LWPOLYLINE"))))
(setqnn1 0
k 0
)
(repeat (sslength ss)
    (setq sty (ssname ss nn1))
    (setq sty1 (entget sty))
    (ertwefewfds)
    (setq nn1 (1+ nn1))
)
(print (strcat "共处理了" (rtos nn1 2 0) "个文字"))
(princ)
)


(defun ertwefewfds ();;;取出文字
(setqlis (mapcar 'cdr
      (vl-remove-if '(lambda (x) (/= (car x) 10)) sty1)
      )
)
(setq t1 (ssget "wp" lis (list (cons 0 "TEXT"))))
(if (/= t1 nil)
    (sijfioweuofj)
    )

)



(defun sijfioweuofj()
(setqn (sslength t1)
m 0
)
(setq lj "")
(while (< m n)
    (setq e (entget (ssname t1 m))
    m (1+ m)
    )
   
    (setq trr (strcat(cdr (assoc 1 e)) lj ))
    (setq ljtrr)
    (print (strcat "正在处理：" trr))
    (princ)
)
(setq xwzz (vlax-ename->vla-object (cdr(car(entget (ssname t1 0))))))
(vla-put-textstring xwzz trr)
(if (> n 1)(werwcdfvxvd))
       )

(defun werwcdfvxvd ()
(setq aaa 1)
(repeat (- n 1)
   
(setq
    xwzz (vlax-ename->vla-object (cdr (car (entget (ssname t1 aaa)))))
)
    (setq aaa (1+ aaa))
(vla-put-textstring xwzz "")
    )
)




陈亚娣 发表于 2014-3-17 21:31:51

找了好久这种程序正是我需要的，谢谢

香田里浪人 发表于 2014-3-19 10:39:56

试用一下
错误: 参数类型错误: lselsetp nil

香田里浪人 发表于 2014-3-19 10:40:59

2004试用一下
错误: 参数类型错误: lselsetp nil
是不是2004版本不能用？
页: [1] 2 3
查看完整版本: 范围内文字合并