[LISP程序]：返回文本字符串字符插入点间隔

lsjjm · 发表于 2004-7-1 10:55:09

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

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

×

返回文本字符串字符插入点间隔
[php]
(defun lenstr (ss)
  (setq tst (textbox (list (cons 1 ss))))
  (setq l (- (car (cadr tst))(car (car tst))))
)
;
(defun c:test (/ ll lst)
  (setq a (car (entsel)))
  (setq str (cdr (assoc 1 (entget a))))
  (setq lst (mapcar 'chr (vl-string->list str)))
  (repeat (strlen str)
(if (> (strlen str) 1)
   (setq g2 (lenstr (substr str 2 1))
         ll (cons (- (lenstr (substr str 1 2)) g2) ll))
)
(setq str (substr str 2))
  )
  (reverse ll)
)
[/php]

陌生人 · 发表于 2004-7-1 11:48:00

命令: test
选择对象: (170.079 166.929 176.378 176.378 160.63 163.78 157.48 0.0 162.205
-19.0476 190.476 190.476 190.476 152.381 190.476 152.381)
有个负数，代表什么意思呢？....

lsjjm · 发表于 2004-7-2 04:40:58

我还没有yu到负数的情况. 你的例子是什么文本? 170.079 mm, cm m?

陌生人 · 发表于 2004-7-2 14:59:40

Select object: (1647.85 1672.81 1510.53 1335.75 2771.38 2921.18 2933.66 12.4837
2883.73 2946.15 2883.73 -1285.82 1610.39 1797.65 1348.24 1647.85 1797.65 1373.2
1710.26)
随手写的几个字
用的是windows的宋体

aeo · 发表于 2004-7-2 23:06:35

最初由 lsjjm 发布
[B]返回文本字符串字符插入点间隔
[php]
(defun lenstr (ss)
  (setq tst (textbox (list (cons 1 ss))))
  (setq l (- (car (cadr tst))(car (car tst))))
)
;
(defun c:test (/ ll lst)
  (setq a (car (ents... [/B]

你这个有什么用呀?

textbox,连字型都忽略了。

而且算出的位置，也不是要写字符的应该位置.
前面有讨论,"A"+"B" /=" AB" 我在最后贴了一个的.

lsjjm · 发表于 2004-7-3 08:01:47

最初由 aeo 发布
[B][QUOTE][你这个有什么用呀?textbox,连字型都忽略了。[/B]

这是个子程序. 为以后分解文本字串成单个字符和拉伸文本用的.
准确地说插入点间隙中的L 应该是: (setq l (car (cadr tst))) .

陌生人 · 发表于 2004-7-3 09:54:25

他的意思是这种方法求的不准确，因此也就“没用了”

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

[LISP程序]：返回文本字符串字符插入点间隔

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

相关帖子

Re: [LISP程序]：返回文本字符串字符插入点间隔

Re: Re: [LISP程序]：返回文本字符串字符插入点间隔