免费视频|新人指南|投诉删帖|广告合作|地信网APP下载

楼主: heart
收起左侧

[技术交流] CASS比例尺符号大小改变

  [复制链接]

2

主题

1852

铜板

20

好友

助理工程师

Rank: 5Rank: 5

积分
308
发表于 2011-9-13 12:11 | 显示全部楼层
gjzero 发表于 2011-9-13 11:56
看下,有什么好方法

是什么方法呀  到底数据丢失有多少
该会员没有填写今日想说内容.

0

主题

149

铜板

0

好友

技术员

Rank: 3Rank: 3

积分
83
发表于 2011-9-14 10:58 | 显示全部楼层
好吧 我回复下

0

主题

710

铜板

0

好友

助理工程师

Rank: 5Rank: 5

积分
105
发表于 2011-9-16 20:14 | 显示全部楼层
学习学习,我也经常碰到这种问题

5

主题

6224

铜板

4

好友

高级工程师

Rank: 9Rank: 9Rank: 9

积分
800
发表于 2011-9-17 02:38 | 显示全部楼层
先看看学习学习
该会员没有填写今日想说内容.

0

主题

177

铜板

1

好友

技术员

Rank: 3Rank: 3

积分
55
发表于 2011-9-17 12:16 | 显示全部楼层
学习下,看看

0

主题

412

铜板

0

好友

助理工程师

Rank: 5Rank: 5

积分
119
发表于 2011-9-18 18:38 | 显示全部楼层
qwerIO;FNW C

7

主题

2016

铜板

30

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
543
QQ
发表于 2011-9-20 22:35 | 显示全部楼层
本帖最后由 zhb236623 于 2011-9-20 22:36 编辑

写个小程序搞定....类似这个..更改文字高度......
  1. (defun c:gzg ()
  2.              (setq ss (ssget '((0 . "text"))))         
  3.                                                  (setq i 0)
  4.                     (repeat (sslength ss)
  5.                          (setq ssn (ssname ss i)
  6.                                endata (entget ssn)
  7.                                                                                                          endata (subst (cons 40 3) (assoc 40 endata) endata)
  8.                                                                                                          i      (1+ i)
  9.                                                                                          )
  10.                              (entmod endata)         
  11.                                                                                                
  12.                      )
  13.   )       
复制代码

0

主题

627

铜板

2

好友

助理工程师

Rank: 5Rank: 5

积分
204
发表于 2011-9-27 16:51 | 显示全部楼层
CASS里面 能用的CAD 命令。

0

主题

3万

铜板

6

好友

地信院士

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

积分
2476
发表于 2011-9-27 19:08 | 显示全部楼层
来学习,谢谢提供{:soso_e101:}

7

主题

2016

铜板

30

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
543
QQ
发表于 2011-9-27 22:33 | 显示全部楼层
本帖最后由 zhb236623 于 2011-9-27 22:39 编辑
  1. (defun c:gzg ()   ;;更改文字高度
  2.              (setq ss (ssget '((0 . "text"))))         
  3.                                                  (setq i 0)
  4.                     (repeat (sslength ss)
  5.                          (setq ssn (ssname ss i)
  6.                                endata (entget ssn)
  7.                                endata (subst (cons 40 3) (assoc 40 endata) endata)
  8.                                i      (1+ i)
  9.                           )
  10.                              (entmod endata)         
  11.                                                                                                
  12.                      )
  13.   )       
复制代码
可以用类似方法解决想要更改回来的地物  此程序是更改文字高度    选中的文字都改为   3  。  想要改为多少只要3-》变成想要的字体大小即可。。。
  1. (defun c:gzk ()         ;;更改文字宽度
  2.              (setq ss (ssget '((0 . "text"))))         
  3.                                                  (setq i 0)
  4.                     (repeat (sslength ss)
  5.                          (setq ssn (ssname ss i)
  6.                                endata (entget ssn)
  7.                                                                                                          endata (subst (cons 41 0.8) (assoc 41 endata) endata)
  8.                                                                                                          i      (1+ i)
  9.                                                                                          )
  10.                              (entmod endata)         
  11.                                                                                                
  12.                      )
  13.   )
复制代码
电杆的话好像是个块,(ssget '((0 . "text")))-》(ssget '((0 . "insert")))    然后改改可以把那些插入的块都一起改过来。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

在线客服
快速回复 返回顶部 返回列表