[编程申请]：有没有一个标注尺寸文字文本刷子，使标注文字相同，谢谢！！！

li_seagull · 发表于 2004-10-10 08:26:55

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

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

×

有没有一个标注尺寸文字文本刷子，使标注文字相同，谢谢！！！

lsjjm · 发表于 2004-10-10 11:03:54

什么相同? 是将不同的尺寸数值都刷成相同的字符如"DIA" ?

li_seagull · 发表于 2004-10-10 12:03:42

是的，就是二号楼主说的意思

梦断江南 · 发表于 2004-10-10 21:23:57

不用刷也可以啊, ctrl+1,选择标注,改文字为你需要的.

lsjjm · 发表于 2004-10-11 04:11:02

最初由 li_seagull 发布
[B]是的，就是二号楼主说的意思 [/B]

REFER TO:
[php]
(defun c:test ()
  (vl-load-com)
  (setq txt (getstring "\Type in New String: "))
  (setq ss (ssget '((0 . "DIMENSION"))) n 0)
  (while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(vla-put-TextOverride obj (strcase txt))
(setq n (1+ n))
  )
  (princ)
)
[/php]

whcdy · 发表于 2004-10-11 07:02:49

5楼的小程序加载后没任何反应呀？

li_seagull · 发表于 2004-10-11 08:26:35

5号楼主，能不能不用输入数值，直接点取与之相同的尺寸。

lsjjm · 发表于 2004-10-11 08:58:45

最初由 li_seagull 发布
[B]5号楼主，能不能不用输入数值，直接点取与之相同的尺寸。 [/B]

[php]
(defun c:test ()
  (vl-load-com)
  (setq e (car (entsel "\nSelect Destination Dimension: ")))
  (setq txt (cdr (assoc 1 (entget e))))
  (prompt "\nSelect Dimensions to change: ")
  (setq ss (ssget '((0 . "DIMENSION"))) n 0)
  (while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(vla-put-TextOverride obj (strcase txt))
(setq n (1+ n))
  )
  (princ)
)
[/php]

li_seagull · 发表于 2004-10-11 12:21:37

谢谢lsjjm ,真的是太好了，谢谢！！！

xyp1964 · 发表于 2004-10-12 21:46:44

(setq txt (cdr (assoc 1 (entget e))))
标注没有dxf 1码！

梦断江南 · 发表于 2004-10-12 22:24:18

标注的dxf1
1
由用户明确输入的标注文字。可选；默认值为测量。如果为空或“<>”，标注测量将绘制为文字；如果为“ ”（空格），文字将被隐藏。其他内容绘制为文字

ll_j · 发表于 2004-10-13 18:31:53

在组码1为空字符或“<>”时，组码42表示为“实际测量”值（R14没有此值），但此值根据精度不同，可能与标注显示不尽相同。
其实只要用一个R12的标注命令就已经比较方便了：
(defun c:nt() (command "dim1" "new") (princ))

urljit · 发表于 2004-10-13 21:09:49

如果能求出组码为1的时候的文字内容是最好不过的！

很久以前我是这样求的：

(setq dimstl (cdr (assoc 3 elist)))
(setq as (cdr (assoc 1 elist)))
(if (or (= "<>" as) (= "" as))
(progn
(setq
dimlfac (cdr (assoc 144 (tblsearch "DIMSTYLE" dimstl)))
)
(setq pt13 (cdr (assoc 13 elist)))
(setq pt14 (cdr (assoc 14 elist)))
(setq as (distance pt13 pt14))
(setq as (* as dimlfac))
(setq as (rtos as 2 0))

当初由于没有时间，没有继续改，现在看来是有不少缺陷，毕竟可以为“大家”“引玉”。

lsjjm · 发表于 2004-10-14 05:41:53

最初由 urljit 发布
[B]如果能求出组码为1的时候的文字内容是最好不过的！... [/B]

"组码为1的时候的文字" ?? 不明白你说的是什么意思.

urljit · 发表于 2004-10-19 12:51:50

最初由 lsjjm 发布
[B]
"组码为1的时候的文字" ?? 不明白你说的是什么意思. [/B]

就是即便是测量值也换算成字符串

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

[编程申请]：有没有一个标注尺寸文字文本刷子，使标注文字相同，谢谢！！！

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

相关帖子

浏览过的版块