[LISP函数]：怎么识别选取的文字是中文还是英文？

litss · 发表于 2004-10-13 21:34:18

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我要实现在点选文本以后，返回该文本是中文还是英文字体的提示，不知道该用什么命令获取文本的这一相关属性？具体怎么操作呢？

xyp1964 · 发表于 2004-10-13 22:00:58

中文与英文有区别？
C1是中文还是英文？！
别跟自己过不去！

litss · 发表于 2004-10-13 22:16:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

：（可能我没表达清楚
其实我是想获取该文字的style
通常我用字体时，中英文是分别用两个文字样式的，比如中文用chn，数字英文用eng，以便控制英文字体的宽度。
该怎么获取呢？

xyp1964 · 发表于 2004-10-13 23:24:53

;;;字体识别
(defun c:ztsb()
  (setq tt (dxf 7 (entget (car (entsel)))))
  (if (= tt "eng")(alert "英文!"))
  (if (= tt "chn")(alert "中文!"))
  )
(defun dxf (code elist) (cdr (assoc code elist)))

aeo · 发表于 2004-10-13 23:35:29

判断字体:
(defun c:tt()
(if(= ""(cdr(assoc 4(tblsearch "style"(cdr(assoc 7(entget(car(entsel)))))))))
(princ "English")
(princ "Chinese")
)(princ))

字符里有没有中文:

(defun check-china(str)
(apply 'or (mapcar '(lambda(x)(> x 159))(vl-string->list str)))
)

命令: (CHECK-CHINA "ABC")
nil

命令: (CHECK-CHINA "ABC晓东")
T

xyp1964 · 发表于 2004-10-13 23:41:21

1楼楼主要的是style！

litss · 发表于 2004-10-14 01:47:48

：）虽然没有直接获得style，不过效果一样，问题解决了
^_^都是高手啊

njshf · 发表于 2004-10-14 04:14:03

好像是英文代码是正，中文为负。

kkk3kkk · 发表于 2004-10-14 04:20:43

(defun dxf (code elist) (cdr (assoc code elist)))
找不到。。。。（CODE）

xyp1964 · 发表于 2004-10-14 07:11:56

5楼斑竹“判断字体”程序好像判断反了。

litss · 发表于 2004-10-14 23:29:20

判断是正确的啊。只是我看不太懂这一串：
(cdr(assoc 4(tblsearch "style"(cdr(assoc 7(entget(car(entsel)))))))
这应该是用于选择文本的吧。但是选完以后，除了判断属性以外，能不能同时把这个文本的内容记录下来，并赋予某个参数呢？

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

[LISP函数]：怎么识别选取的文字是中文还是英文？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块