明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 228|回复: 12

[源码] 多行文字炸开法速度很慢,不知这个咋样

[复制链接]
发表于 2020-10-11 15:08 | 显示全部楼层 |阅读模式
本帖最后由 wmz 于 2020-10-11 15:09 编辑
[code="lisp] ;;;;;;;将多行文字转换为单行文字
(defun c:MtoTa(/ f e e0 ee m str p0 pp h H0 KD n n1 nn str0 str1 stra)
    (vl-load-com)
   ; (setq    f (open "C:/10.txt" "w"))
    (setq    e (ssget "X" '((0 . "MTEXT"))))
  (if e (progn
    (setq    m 0 n nil nn 0 str0 "" str1 "" stra "")
  (repeat (sslength e)
    (setq   e0 (ssname e m) m (1+ m))
    (setq   ee (entget e0))
    (setq  str (cdr(assoc 1 ee)))
    (setq   p0 (cdr(assoc 10 ee)))
    (setq    H (cdr(assoc 40 ee)))
    (setq   H0 (cdr(assoc 43 ee)))
    (setq   KD (cdr(assoc 42 ee)))
    (setq   pp (list (+(car p0)(/ KD 2.0))(-(cadr p0)(/ H0 2.0))))
    (while
         (setq   n (vl-string-search ";" str))
         (setq str (substr str (+ n 2)))
    )
    (setq  str (vl-string-subst "" "}" str))
    (setq   nn (strlen str) n1 1 stra "")
    (repeat nn
         (setq str1 "" str0 "")
         (setq str0 (substr str n1 1) n1 (1+ n1))
         (if (and(> n1 2)(<= n1 nn))(setq str1 (substr str (- n1 2) 1)))
      (cond ((and(= str0 "P")(/= str1 "\"))(setq stra (strcat stra str0)))
               ((and(/= str0 "\")(/= str0 "P"))(setq stra (strcat stra str0)))
      )        
    );;;;;;end nn
      (command "erase" e0 "")
      (command "TEXT" "M" pp h "360" stra)
      ;(write-line stra f)
      (print "stra=")(princ stra)(princ)
  )
  ));;;;;end (if e  
      ;(close f)
)[/code]

发表于 2020-10-12 09:07 | 显示全部楼层
顶一下,,谢谢楼主的分享
发表于 2020-10-12 14:09 | 显示全部楼层
顶一下,,谢谢楼主的分享
发表于 2020-10-13 17:15 | 显示全部楼层
(setq   n (vl-string-search ";" str))这句好像有问题
发表于 2020-10-13 18:00 | 显示全部楼层
; 错误: 参数类型错误: numberp: nil
 楼主| 发表于 2020-10-14 13:56 | 显示全部楼层
本帖最后由 wmz 于 2020-10-14 13:58 编辑
广易精通 发表于 2020-10-13 18:00
; 错误: 参数类型错误: numberp: nil

请发一幅遇到问题的图,我测试一下!谢谢!(acad2012版本以下,我没有装更高版本的CAD)
发表于 2020-10-15 11:19 | 显示全部楼层
2010CAD加载也是这个错误提示,感觉还是程序有问题
发表于 2020-10-15 11:26 | 显示全部楼层
wmz 发表于 2020-10-14 13:56
请发一幅遇到问题的图,我测试一下!谢谢!(acad2012版本以下,我没有装更高版本的CAD)

图片已上传

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2020-10-15 12:44 | 显示全部楼层

我是须要你上传DWG图幅,便于我调试程序。不是上传PNG图像文件。再说这个文件我也打不开(不知什么原因),麻烦你了!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2020 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2020-10-25 10:32 , Processed in 0.143386 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表