两点的间距

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

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

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

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

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

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

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

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

现在挺忙，一周内答复：

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

（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

我的QQ是360167933

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

命令: ap APPLOAD 已成功加载两点间距bz.lsp。命令: STYLE 输入文字样式名或 [?] <HZ>: HZ
现有样式。
指定完整的字体名或字体文件名 (TTF 或 SHX): <txt.shx,HZTXT.shx>: HZTXT
指定文字高度 <0.00>: 0.000000000000000 指定宽度比例 <0.50>: 0.500000000000000
指定倾斜角度 <0>: 0.000000000000000 是否反向显示文字？[是(Y)/否(N)] <N>:
是否颠倒显示文字？[是(Y)/否(N)] <N>: 是否垂直? <Y>
选择点1:
无法重复进入 LISP。点无效。选择点1:
选择点２:
选择标注线:
; 错误: 参数类型错误: numberp: nil 是否垂直? <Y> 命令: 是否垂直? <Y> y
“HZ”是当前文字样式。
正在重生成模型。
这是在cad2002中运行的结果，好像不行啊！

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

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

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

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

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

wedg0120@vip.sina.com

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

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

style name 选HZ

shx font    选txt.shx

big font    选hztxt

height    设为0

width factor 设为0.5

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

我都按照你写的设置了，可是好像还是不行！

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

两点的间距

本帖子中包含更多资源

现在挺忙！

[LISP]试试看!

再回答几个问题！

这样做