[编程申请]：请编一个LISP程序

wcf · 发表于 2007-7-2 06:55:59

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

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

×

请编一个LISP程序，可以复制标注尺寸线上的数字，并且复制后的数字为单行字

carrot1983 · 发表于 2007-7-2 09:17:53

[php]
(defun c:tt (/ data ent high pt value)
  (setq ent (car (entsel "\n选择标注:")))
  (setq data (entget ent))
  (setq value (cdr (assoc 1 data)))
  (if (= value "")
(setq value (cdr (assoc 42 data)))
  )
  (setq value (rtos value 2 3))
  (setq high (getvar "textsize"))
  (setq pt (getpoint "\n指定文字的插入点:"))
  (command ".text" pt high "0" value)
  (princ)
)
[/php]

carrot1983 · 发表于 2007-7-2 09:30:02

[php]
(defun c:tt (/ data ent high pt value)
  (setq ent (car (entsel "\n选择标注:")))
  (setq data (entget ent))
  (setq value (cdr (assoc 1 data)))
  (if (= value "")
(setq value (cdr (assoc 42 data)))
  )
  (setq value (rtos value 2 3))
  (setq high (getvar "textsize"))
  (setq pt (getpoint "\n指定文字的插入点:"))
  (command ".text" pt high "0" value)
  (princ)
)
[/php]

wcf · 发表于 2007-7-2 21:53:50

谢谢，如果当前设置的文字高度为0时可以用，否则不能用；另外程序没有考虑标注比例问题，比如标注比例为1:100,输出的结果是目前文字高度的1/100，还有一点希望程序拷贝的结果为平行原尺寸标注线。

userzhluserzhl · 发表于 2007-7-3 08:28:06

更改过的标注会出错

carrot1983 · 发表于 2007-7-3 08:36:29

楼主，你是真的一点都不会，还是会一点点！
如果真的是会一点点的话，说出这些话我相信！
但是说不会的话，不相信！
既然你会一点点的话！你所提的一切要求都是可以自己小小修改就能实现的！别太懒了！

wcf · 发表于 2007-7-3 09:07:26

谢谢批评，不是懒，主要是不知道标注尺寸数字的旋转角度的代码是什么，如何提取？

carrot1983 · 发表于 2007-7-3 12:10:28

角度好像是50组码!
自己要看DXF帮助啊!
在CAD自带的lisp编辑器下按F1,就可以找到DXF帮助啦!

zml84 · 发表于 2007-7-5 19:00:40

注标 (DIMENSION)

1 = 注标文字
2 = 图块名称
3 = 文字字型
10 = 定义点坐标

11 = 文字中间点坐标
13 = 第1定义点坐标
14 = 第2定义点坐标
15 = 第3定义点坐标

50 = 注标线旋转角度
53 = 文字旋转角度
70 = 注标形式
(0=线性 1=对齐式 2=角度 3=直径 4=半径 6=坐标式 70=坐标式 128=文字巳被修改)

<br>
DWG图形常用DXF群组码:
http://zml84.blog.sohu.com/24654857.html

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

[编程申请]：请编一个LISP程序

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

相关帖子