wedg 发表于 2004-7-18 21:13:00

我已经上传了图纸，可是不知道为什么这里看不到！回答上面的2个问题：


1、鼠标点的2点是一条直线和2条直线的交点


2、现在不管比例的大小，因为不管用什么比例，我出图的文字都是一致的。


现在，我要的只是，任意两交点间距标注出来的数字，能放置在我定义的一条直线的上方，且所有的文字离我定义的那条直线距离等同。

wedg 发表于 2004-7-19 10:27:00

你们看看！其中管道埋深一栏没有填上，我要的就是地面线到管道底端的距离。文字要求同桩号及长度中的竖向文字。（此图横向比例1：1000，竖向比例为：1：100）

wangzhong 发表于 2004-7-19 17:24:00

现在挺忙！

现在挺忙，一周内答复：

wangzhong 发表于 2004-7-21 07:37:00

[LISP]试试看!

（DEFUN C:BZ()


                                                                       (SETVAR "OSMODE" 33)


                                                                       (COMMAND "STYLE" "HZ" "HZTXT" 0.0 0.5 0.0 "" "")


                                                                       (while (setq pt1 (getpoint "\n选择点1:"))


                                                                                                                                                       (setq pt2 (getpoint "\n选择点２:"))


                                                                                                                                                       (setq dst1 (distance pt1 pt2))


                                                                                                                                                       (setq dst1 (rtos dst1 2 2))


                                                                                                                                                       (SETVAR "OSMODE" 512)


                                                                                                                                                       (setq pt3 (getpoint "\n选择标注线:"))


                                                                                                                                                       (SETVAR "OSMODE" 0)


                                                                                                                                                                (SETQ PT3 (LIST (CAR PT3) (1+ (CADR PT3))))


                                                                                                                                                       (COMMAND "TEXT" PT3 3.0 90 DST1)


                                                                                                                                                       (SETVAR "OSMODE" 33)


                                                                                                       )


                                                                                                       (SETVAR "OSMODE" 0)


                                                                                                       (PRINC)


)



使用说明：


１、标注完毕，单击鼠标右键结束


２、字型与字高不合适可自改


３、标注距线１个单位

06622 发表于 2004-7-21 08:30:00

我的QQ是360167933

wedg 发表于 2004-7-21 11:54:00

命令: ap APPLOAD 已成功加载 两点间距bz.lsp。


命令: STYLE 输入文字样式名或 [?] &lt;HZ&gt;: HZ<BR>现有样式。<BR>指定完整的字体名或字体文件名 (TTF 或 SHX):       &lt;txt.shx,HZTXT.shx&gt;: HZTXT <BR>指定文字高度 &lt;0.00&gt;: 0.000000000000000 指定宽度比例 &lt;0.50&gt;: 0.500000000000000<BR>指定倾斜角度 &lt;0&gt;: 0.000000000000000 是否反向显示文字？[是(Y)/否(N)] &lt;N&gt;: <BR>是否颠倒显示文字？[是(Y)/否(N)] &lt;N&gt;: 是否垂直? &lt;Y&gt;<BR>选择点1:<BR>无法重复进入 LISP。


点无效。


选择点1:<BR>选择点２:<BR>选择标注线:<BR>; 错误: 参数类型错误: numberp: nil


是否垂直? &lt;Y&gt; 命令: 是否垂直? &lt;Y&gt; y<BR>“HZ”是当前文字样式。<BR>正在重生成模型。<BR>


这是在cad2002中运行的结果，好像不行啊！

wangzhong 发表于 2004-7-21 16:27:00

再回答几个问题！

在2000cad版本中通过、2002应该没问题！


标注字型样式、字体名、字高和比例因子说清楚。


也可能抄的过程漏项，把邮箱传上，源程序发过去。

wedg 发表于 2004-7-21 18:40:00

wedg0120@vip.sina.com

wangzhong 发表于 2004-7-22 07:41:00

这样做

用style命令将其有关设置为：


style name 选HZ


shx font       选txt.shx


big font       选hztxt


height                       设为0


width factor 设为0.5

wedg 发表于 2004-7-22 09:40:00

我都按照你写的设置了，可是好像还是不行！
页: 1 2 3 [4] 5
查看完整版本: 两点的间距