打散线条lisp_autolisp里面拆分字串符技巧

autolisp

里面拆分字串符技巧

;

在

CAD

里面，写程序的时候，需要拆分文字内容

;

;

如果只有英文就没有问题，如果有中文的话，拆分文字内容需要用

ascii

来分析

(defun C:tes ( / &_string &k1 &ob1 &ss1)

(if (null vlax-dump-object) (vl-load-com) )

(setq &k1 (car (entsel)))

;

选择文字

(setq &ob1 (vlax-ename->vla-object &k1))

;

变

VLA

(setq &_string (vla-get-TextString &ob1))

;

取得文字内容

(setq &ss1 (tes~20150714~1 &_string))

;

取得拆分的文字表

(princ &ss1)

;

命令行显示拆分后形成的表

(prin1)

)

;;

文字内容拆开

(defun tes~20150714~1 (&_string / &_string &_str1 n1 &_ss1) ;

拆分字体子程序

(setq &_ss1 '())

(while (/= &_string "")