[求助]：[0516]如何制作尺寸标注两线中心程序呢?

tctabc

[求助]：[0516]如何制作尺寸标注两线中心程序呢?
请问各位高手,
该怎样使程序,
以两线的中心为标注起点,
来做为标注呢?

想运用在室内设计中标注墙与墙中心尺寸.

xxsheng

语法

    (osnap pt mode-string)

功能及参数

    这个函数将返回一个 3D 的点, 这个点是将 mode-string所描述的图形捕捉模式应用到点 pt 的结果。mode-srting这个字符串包含了一个或多个有效的图形捕捉识别字, 如：midpoint, center 等, 其中它们是以逗号分开的。

范例

    (setq pt2 (osnap pt1 "midp"))

    (setq pt2 (osnap pt1 "midp, endp, center"))

 osnap 函数所返回的点是依据目前的3D视面以及在APERTURE系统变量中的设定来决定的。

    常数名称：π

    常数语法：(pi)

    功能：Pi(π)并非函数, 而是一常数值。此值大约为 3.1415926。

tctabc

如何用程序写出这样标注方法呢?如图.

 

vken7az2p

不知有人可以回答一下吗?

 

ZZXXQQ

程序：（不过要选四点)

2. (DEFUN C:CDIM ()
3. (SETVAR "CMDECHO" 0)
4. (SETQ OLDOS (GETVAR "OSMODE"))
5. (SETVAR "OSMODE" 513)
6. (SETQ PT1 (GETPOINT "\n第一点 :"))
7. (SETVAR "OSMODE" 128)
8. (SETQ PT2 (GETPOINT PT1 "\n第二点 :")
9.        PT1 (POLAR PT1 (ANGLE PT1 PT2) (/ (DISTANCE PT1 PT2) 2))
10.        PT2 (GETPOINT PT1 "\n第三点 :")
11.        PT3 (GETPOINT PT2 "\n第四点 :")
12.        PT2 (POLAR PT2 (ANGLE PT2 PT3) (/ (DISTANCE PT2 PT3) 2)))
13. (SETVAR "OSMODE" 0)
14. (COMMAND "DIMLINEAR" PT1 PT2 PAUSE)
15. (WHILE (> (GETVAR "CMDACTIVE") 0) (COMMAND PAUSE))
16. (SETVAR "OSMODE" OLDOS)
17. (SETVAR "CMDECHO" 1)
18. (PRINC)
19. )

复制代码

tcht

有更方便的吗？

zmzk

不错，这个可以用的到！