ZZXXQQ 发表于 2004-12-9 09:05:00

楼主可以用下面的程序来画。程序在R14版中调试通过。
(DEFUN C:DLEADER ()
(IF (SETQ PT1 (GETPOINT "\nFirst extension line origin :"))
   (IF (SETQ PT2 (GETPOINT PT1 "\nSecond extension line origin :")) (PROGN
   (SETQ OLDSE1 (GETVAR "DIMSE1")
               OLDSE2 (GETVAR "DIMSE2"))
   (SETVAR "DIMSE1" 1)
   (SETVAR "DIMSE2" 1)
   (COMMAND "DIMALIGNED" PT1 PT2 "T" " " PT2)
   (SETVAR "DIMSE1" OLDSE1)
   (SETVAR "DIMSE2" OLDSE2)
   ))
)
(PRINC)
)

my1848 发表于 2004-12-10 15:10:00

用引线就可以做了！

jordan 发表于 2004-12-10 20:08:00

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=28314" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=28314</A>


我做的是单箭头..要用双箭头也一样.仔细看程序.上面的朋友说得没错.用多段线生成很方便...

fireplaces 发表于 2004-12-21 08:39:00

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


就出来了

wcadw 发表于 2004-12-21 10:16:00

要是俺画两箭头的直线的话,俺会先画一条直线,然后用标注里面的引线从直线的一个端点画到中点,再重复引线从直线的另一个端点画到中点.ok
页: 1 [2]
查看完整版本: 两头带箭头的直线怎样生成!