看谁能实现这个功能

meflying

你的图块中没有比例啊，你是要自己写的，原来都没有，怎么改啊？？？


建议你使用属性块（怎么用，自己搜索一下论坛，或看看帮助文件），这样方便得多

熊哥哥

我想是我没说清楚


就是在比例两个字的后面一格中输入1:2 、 1:3这样的字符就是说我插入的图框放大二倍就自动在那一栏输入1：2的字样放大三倍就是1：3

ljpnb

一般搞建筑设计的都会用到属性块，而且修改确实方便，不过如果图中块多的话，会影响显示速度，不知道飞哥有没有碰到过。对于熊哥哥提的问题，根据你的意图，可以这样做，这个程序包括插入图框过程和插入比例文字过程，插入图框后紧跟着取出图框的右下角坐标作为参考点，求得比例文字起点，再text自动输入比例系数

熊哥哥

谢谢13楼的提醒我再试试

ZZXXQQ

下面的程序运行后，您只要点选图框，即自动在标题栏内写上比例。

1. (DEFUN C:DRAWSC ( / SS ENT NN NM SC PT PC TSC)
2. (SETVAR "CMDECHO" 0)
3. (IF (SETQ SS (ENTSEL "\n请选择图框 :")) (PROGN
4.   (SETQ ENT (ENTGET (CAR SS))
5.              NN (CDR (ASSOC 0 ENT)))
6.   (IF (= NN "INSERT") (PROGN
7.    (SETQ OLDOS (GETVAR "OSMODE"))
8.    (SETVAR "OSMODE" 0)
9.    (SETQ NM (CDR (ASSOC 2 ENT))
10.                SC (CDR (ASSOC 41 ENT))
11.                PT (CDR (ASSOC 10 ENT)))
12.    (COND
13.      ((= NM "A4") (SETQ PC (LIST (+ (CAR PT) (- 210 83)) (+ (CADR PT) 6))))
14.      ((= NM "A3") (SETQ PC (LIST (+ (CAR PT) (- 420 83)) (+ (CADR PT) 6))))
15.      ((= NM "A2") (SETQ PC (LIST (+ (CAR PT) (- 594 83)) (+ (CADR PT) 11))))
16.      ((= NM "A1") (SETQ PC (LIST (+ (CAR PT) (- 841 83)) (+ (CADR PT) 11))))
17.      ((= NM "A0") (SETQ PC (LIST (+ (CAR PT) (- 1189 83)) (+ (CADR PT) 11))))
18.    )
19.    (IF (>= SC 1) (SETQ TSC (STRCAT "1:" (RTOS SC 2 2))))
20.    (COMMAND "TEXT" "C" PC 6 0 TSC)
21.   ))
22. ))
23. (SETVAR "OSMODE" OLDOS)
24. (PRINC)
25. )

复制代码

熊哥哥

谢谢飞哥及十三的提醒按照你们的意思我今天弄了一下，花了很短的时间就成功了。 也谢谢ZZXXQQ的真诚帮助。