两头带箭头的直线怎样生成!

ZZXXQQ

楼主可以用下面的程序来画。程序在R14版中调试通过。

2. (DEFUN C:DLEADER ()
3.   (IF (SETQ PT1 (GETPOINT "\nFirst extension line origin :"))
4.    (IF (SETQ PT2 (GETPOINT PT1 "\nSecond extension line origin :")) (PROGN
5.      (SETQ OLDSE1 (GETVAR "DIMSE1")
6.                  OLDSE2 (GETVAR "DIMSE2"))
7.      (SETVAR "DIMSE1" 1)
8.      (SETVAR "DIMSE2" 1)
9.      (COMMAND "DIMALIGNED" PT1 PT2 "T" " " PT2)
10.      (SETVAR "DIMSE1" OLDSE1)
11.      (SETVAR "DIMSE2" OLDSE2)
12.    ))
13.   )
14.   (PRINC)
15. )

复制代码

my1848

用引线就可以做了！

jordan

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=28314 我做的是单箭头..要用双箭头也一样.仔细看程序.上面的朋友说得没错.用多段线生成很方便...

fireplaces

pline线不是有宽度调整吗，一端设定一个宽度，另一端宽度设为0


就出来了

wcadw

要是俺画两箭头的直线的话,俺会先画一条直线,然后用标注里面的引线从直线的一个端点画到中点,再重复引线从直线的另一个端点画到中点.ok