最火增加AUTOCAD在文字处理上的功能封边机旋转吊钩检测仪器压合机滑轨门

增加AUTOCAD在文字处理上的功能

一、说明

在用AUTOCAD制图的过程中，必然要写说明性文字。当然在制表和写设计说明时，文字量就更大，AUTOCAD写文字并无难处，难的是怎么使写出 的文字的尺寸、间距、对齐等方面象文字处理软件那样合适。若用AUTOCAD基本命令来处理，会很麻烦，并影响作图速度。为此我编写了一些小程序供大家使 用。这次我提供如下两个程序：

二、程序的安装及使用

先把ZDDQ．LSP和ZDJT．LSP 拷贝到一个特定的目录下(如:C:\R12\SUPPORT或C:\TCH\SYS等)。用户可以将持到AUTOCAD或其它开发软件的系统菜单上，通过 菜单来调动，也可以AUTOCAD环境COMMAND后面用LOAD命令装入，形成一个附加命令ZDDQ或ZDST。

1．将程序调用装入系统菜单

先找到菜单源文件U，并它。在* * * POP1最后加下面内容。

［字的对齐］^C^C^P(“ZDDQ”)；ZDDQ；^P。

［字的间距调整］^C^C^P(LOAD“ZDJT”)；ZDJT；^P。用鼠标点取下拉菜单即可调用。

2．命令调 用ZDDQ．LSP、ZDJT．LSP

在COMMAND后面输入(LOAD“ZDDQ”)或(LOAD“ZDJT”)，产生可用命这些因素均对塑件收缩行动有明显的影响令ZDDQ、ZD JT，击入命令按提示操作。

3．两程序在使用中基本为中文提示，易用，现已在我院络上全面使用。

4．两程序适用于AUTOCAD R10.0, R11,R12.0。

三、操作过程

1．多文字对齐。提示如下：(其中“ ”中为缺省的选项)

选择对齐方式如下：L左/R右/C中心/M中点：

选择对齐方向如下：1横向对齐(Y座标一致). 2纵向对齐(X座标一致) 2 :

点取对齐点 点取参照实体 ：(即用鼠标在屏上点取对齐的位置，缺省后，提出让你点取参照目标字，这样后面选上的文字与对齐)

选取文字(自动滤非文字类实体，且不用考虑次序，开窗口选也可)。

2．多文字的间距调整，提示如下：

文字间距调整方式如下：

1. 水平 2. 垂直 3. 斜向 1 ：

① 若选“1”或缺省值，则

* 输入各文字水平距值(或用鼠标点取)

* 选择对齐方式：(C中心/L左侧/R右侧/H中心)

1 足浴若选“L”或缺省，则：

* 输入这组文字起点。

* 按选后次序选取文字。

2 其它类推。

选“2”，则：

* 输入文字垂直间距值(或用鼠标点取)：

其它同①。

选“3”，则：

* 按先后次序选取文字。

* 点取斜线起点(即文字排列方向线)酒标。

* 点取斜线终点。

(结果所选文字在斜线起点和终点间等分排列)。

四、源程序如下：

1．多文字的对齐：

;--------------------

; 1996.03.04

;

(defun c:zddq ( / i n txsize ent ent1 o1 o2 o3 o4 a aa olds创造更高的附加值iaze newsize

index bb cc p0 p1 p pp ent0 b ss a1 a2 a3 a4 a5 a6)

(setq i 1)

(princ "\n")(princ "选择对齐方式如下:")(princ)

(setq a (getstring "\n L左/R右/C中心/M中点 L : "))

(if (= a "")(setq a "L"))

(setq a (strcase a))

(cond ((= a "L")(setq 紫砂煲a1 0 a2 11 a但是相干研发和产业化却落后于中国、韩国、日本和新加坡等亚洲1些国家4 10 a5 10))

((= a "M")(setq a1 1 a2 10 a4 11 a5 11))

((= a "R")(setq a1 2 a2 10 a4 11 a5 11))

((= a "C")(setq a1 4 a2 10 a4 11 a5 11))

)

(setq b (getint "\n1.横向对齐(使Y座标一样) 2. 纵向对齐(使X座标一样) 2 : "))

(setq txsize (getpoint "\n点取对齐点 点取参照实体 : "))

(princ "\n")(princ "选取文字(自动滤去非文字实体):")(princ)

(while ( i 10000)

(setq ss (ssget))

(setq n (sslength ss))

(setq 鞋底采取了高性能Elastopan和Cellasto材料index 0)

(repeat n

(setq ent0 (entget (ssname ss index)))

(if (= (cdr (assoc 72 ent0)) 0)

(progn

(setq a4 10)

(if (/ = a1 0)(setq a5 11)(setq a5 10))

)

)

(setq index (+ 1 index))

(setq type (assoc 0 ent0))

(if (= "TEXT" (cdr type))

(progn

(setq p0 (assoc 72 ent0))

(setq p (cons (car p0) a1))

(setq pp (subst 罗定p p0 ent0))

(setq old (assoc 11 pp))

(if (= a "L")

(setq a3 (list 0 0))

长春中西医结合医院面神经科
甲状腺结节云南哪里看好
北京看女性阴道感染医院
哈尔滨做人流手术大概多少钱