[求助]：有没有画引线的命令，并输入文字的

coco25825 · 发表于 2008-8-28 17:18:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如题

zxq0220 · 发表于 2008-8-28 19:03:34

命令LEADER，缩写LE。

yoyoho · 发表于 2008-8-29 11:34:12

(defun C:bbaa ( / origos dimsc dimtx p1 p2 p3 p4 b)
      (command "osnap" "endp,mid,int,cen")
      (setq origos (getvar "osmode"))
      (setvar "cmdecho" 0)
      (setq osd (getvar "osmode"))
      (SETQ OLA (GETVAR "CLAYER"))
      (setq dimsc (getvar "dimscale"))
      (setq dimtx (getvar "dimtxt"))

(SETQ P1 "Y")
(while (/= P1 nil)
      (setvar "osmode" osd)
      (setq p1 (getpoint "\n箭头起点： "))
      (setq p2 (getpoint p1 "\n引线终点： "))

      (SETQ RASS 66)
      (SETQ TXTAS 48)

      (if (<= (car p2)(car p1))
            (setq b (* -2 dimsc))
            (setq b (* 2 dimsc))
      )
      (setq p3 (list (+ (car p2) (* b 0.5)) (cadr p2)))
      (setq p4 (list (+ (car p3) (* b 0.5)) (cadr p3)))

   (IF (/= IDAB "") (SETQ IDAB-S IDAB)(SETQ IDAB "P1"))
      (PRINC "\n 编号/文字： <")(PRINC IDAB)(PRINC ">:")
   (setq IDAB (GETSTRING))
   (IF (= IDAB "")(SETQ IDAB IDAB-S))

      (setvar "osmode" 0)
      (COMMAND "dimldrblk" ".")
      (COMMAND "dimASZ" 1.5)
      (command "leader" p1 p2 p3 "" "" "n")
      (COMMAND "dimASZ" 0.5)
      (if (<= (car p2)(car p1))
         (command "text" "MR" p4 TXTAS "0" IDAB)
         (command "text" "ML" p4 TXTAS "0" IDAB)
      )
      (setvar "osmode" origos)
      (setvar "cmdecho" 1)
)
  (setvar "osmode" osd)
  (SETVAR "CLAYER" OLA)
)

coco25825 · 发表于 2008-9-1 20:57:31

BBAA命令用了，可是只有一条线？

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

[求助] [求助]：有没有画引线的命令，并输入文字的

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子