vl-string-search 查找符号怎么是nil呢

taocitc

Andyhon 发表于 2012-3-8 16:23
Command: (progn
(_>   (setq lgg "20×200×300")
(_>   (print lgg)

(setq ss (ssget))
(setq sslen (sslength ss))
(setq i 0)
(if (= ss nil)
  (prompt "没有选择")
  (while (< i sslen)
    (setq sn (ssname ss i))
    (setq e (entget sn))
    (print e)
    (setq tysj (cdr (assoc 1 e)))
    (print tysj)
    (print (strlen tysj))
    (setq i (+ i 1))
  )
)
(setq k "10×200×300")
(print (strlen k))


你新建一个text 里面的字是 10×200×300  你试试读取下，看是不是字符串长度不对？

taocitc

Andyhon 发表于 2012-3-8 16:23
Command: (progn
(_>   (setq lgg "20×200×300")
(_>   (print lgg)

我知道什么回事了，读取的×显示的是\U+00D7  这一串东西，不知道为什么

Andyhon

Command: (progn (setq ss (ssget))
(_> (setq sslen (sslength ss))
(_> (setq i 0)
(_> (if (= ss nil)
((_>   (prompt "?有??")
((_>   (while (< i sslen)
(((_>     (setq sn (ssname ss i))
(((_>     (setq e (entget sn))
(((_>     (print e)
(((_>     (setq tysj (cdr (assoc 1 e)))
(((_>     (print tysj)
(((_>     (print (strlen tysj))
(((_>     (setq i (+ i 1))
(((_>   )
((_> )
(_> (setq k "10×200×300")
(_> (print (strlen k))
(_>
(_> )

Select objects: Specify opposite corner: 1 found

Select objects:

((-1 . <Entity name: 7ef53f58>) (0 . "TEXT") (330 . <Entity name: 7ef53cb8>) (5
. "BB") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbText") (10 148.399 164.531 0.0) (40 . 4.0) (1 . "10×200×300") (50 . 0.0)
(41 . 0.8) (51 . 0.0) (7 . "STANDARD") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210
0.0 0.0 1.0) (100 . "AcDbText") (73 . 0))
"10×200×300"
12
12 12

字符串长度不对!？
全角 /= 半角 (符)

xyh

taocitc 发表于 2012-3-8 16:58
我知道什么回事了，读取的×显示的是\U+00D7  这一串东西，不知道为什么

读取的×显示的是\U+00D7  这一串东西
图纸是由老版本的CAD创建的。

taocitc

xyh 发表于 2012-3-8 17:40
读取的×显示的是\U+00D7  这一串东西
图纸是由老版本的CAD创建的。

原来如此，谢谢啦。