[分享]：一个很好的标注lsp

vdennis · 发表于 2005-12-20 00:20:48

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

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

×

一个很好的标注tt,也是在晓东下的lsp，改标注的位置很好用.分享一下

blackhold · 发表于 2005-12-20 08:45:58

介绍一下呀。。。。。

似水无痕 · 发表于 2005-12-20 09:06:42

既然楼主并未收币，我把程序代码贴上来吧，以便大家看得更清楚！（楼主若觉得不合适，我可以将该贴删除掉）
我运行了程序，主要是更改标注位置的，但好像不能捕捉！

(defun c:tt (/ ang e en j len olderr os
pt1 pt2 pt3 pt4 ss aeoerr trim-dim
dxf
)
(defun dxf (a b) (cdr (assoc a b)))
(defun aeoerr (msg)
(command "_.undo" "end" ^c)
(setvar "osmode" os)
(setq *error* olderr)
)
(defun trim-dim (pt1 pt2 ss / ent entl i np13 np14 p10 p13 p14 ptt)
; 这一; 段改自"程序（函数）库"
(setq pt1 (trans pt1 1 0)
pt2 (trans pt2 1 0)
i 0
)
(repeat (sslength ss)
(setq ent (ssname ss i)
entl (entget ent)
p10 (cdr (assoc 10 entl))
p13 (cdr (assoc 13 entl))
p14 (cdr (assoc 14 entl))
ptt (cdr (assoc 11 entl))
i (1+ i)
np14 (inters
pt1 pt2 p14 p10 nil)
)
(if (not (member '(100 . "AcDbRotatedDimension") entl))
(setq np13 (polar np14 (angle p14 p13) (distance p14 p13)))
(setq np13 (inters
pt1
pt2
p13
(polar p13 (angle p14 p10) 100)
nil
)
)
)
(setq entl (subst
(cons 13 np13)
(assoc 13 entl)
entl
)
entl (subst
(cons 14 np14)
(assoc 14 entl)
entl
)
)
(entmod entl)
)
)
;;;;;;;
(setq os (getvar "osmode")
olderr *error*
*error* aeoerr
)
(setvar "osmode" 0)
(command "undo" "group")
(prompt "\nby aeo")
(prompt "\n不要修改的标注不要选在里面")
(if (setq ss (ssget '((0 . "DIMENSION"))))
(progn
(setq en (entget (ssname ss 0)))
(if (member '(100 . "AcDbRotatedDimension") en)
(setq ang (dxf 50 en))
(setq ang (angle (dxf 13 en) (dxf 14 en)))
)
)
)
(if (and
ang
(setq pt1 (getpoint "\n标注线位置(回车不改):"))
)
(progn
(setq pt2 (polar pt1 ang 1000)
j 0
len (sslength ss)
)
(while (< j len)
(setq e (ssname ss j)
en (entget (ssname ss j))
pt3 (dxf 10 en)
pt4 (inters
pt1
pt2
pt3
(polar pt3 (+ ang (* 0.5 pi)) 100)
nil
)
j (1+ j)
)
(command "move" e "" pt3 pt4)
)
)
)
(if (and
ang
(setq pt1 (getpoint "\n引出线位置(回车不改):"))
)
(trim-dim pt1 (polar pt1 ang 100) ss)
)
(setvar "osmode" os)
(setq *error* olderr)
(command "_.undo" "end")
(princ)
)

(defun c:tt (/            ang           e          en         j        len    olderr os 
             pt1    pt2           pt3          pt4         ss        aeoerr trim-dim 
             dxf 
            ) 
  (defun dxf (a b) (cdr (assoc a b))) 
  (defun aeoerr        (msg) 
    (command "_.undo" "end" ^c) 
    (setvar "osmode" os) 
    (setq *error* olderr) 
  ) 
  (defun trim-dim (pt1 pt2 ss / ent entl i np13 np14 p10 p13 p14 ptt) 
                                        ; 这一; 段改自"程序（函数）库" 
    (setq pt1 (trans pt1 1 0) 
          pt2 (trans pt2 1 0) 
          i   0 
    ) 
    (repeat (sslength ss) 
      (setq ent         (ssname ss i) 
            entl (entget ent) 
            p10         (cdr (assoc 10 entl)) 
            p13         (cdr (assoc 13 entl)) 
            p14         (cdr (assoc 14 entl)) 
            ptt         (cdr (assoc 11 entl)) 
            i         (1+ i) 
            np14 (inters 
                   pt1 pt2 p14 p10 nil) 
      ) 
      (if (not (member '(100 . "AcDbRotatedDimension") entl)) 
        (setq np13 (polar np14 (angle p14 p13) (distance p14 p13))) 
        (setq np13 (inters 
                     pt1 
                     pt2 
                     p13 
                     (polar p13 (angle p14 p10) 100) 
                     nil 
                   ) 
        ) 
      ) 
      (setq entl (subst 
                   (cons 13 np13) 
                   (assoc 13 entl) 
                   entl 
                 ) 
            entl (subst 
                   (cons 14 np14) 
                   (assoc 14 entl) 
                   entl 
                 ) 
      ) 
      (entmod entl) 
    ) 
  ) 
;;;;;;; 
  (setq        os        (getvar "osmode") 
        olderr        *error* 
        *error*        aeoerr 
  ) 
  (setvar "osmode" 0) 
  (command "undo" "group") 
  (prompt "\nby aeo") 
  (prompt "\n不要修改的标注不要选在里面") 
  (if (setq ss (ssget '((0 . "DIMENSION")))) 
    (progn 
      (setq en (entget (ssname ss 0))) 
      (if (member '(100 . "AcDbRotatedDimension") en) 
        (setq ang (dxf 50 en)) 
        (setq ang (angle (dxf 13 en) (dxf 14 en))) 
      ) 
    ) 
  ) 
  (if (and 
        ang 
        (setq pt1 (getpoint "\n标注线位置(回车不改):")) 
      ) 
    (progn 
      (setq pt2        (polar pt1 ang 1000) 
            j        0 
            len        (sslength ss) 
      ) 
      (while (< j len) 
        (setq e          (ssname ss j) 
              en  (entget (ssname ss j)) 
              pt3 (dxf 10 en) 
              pt4 (inters 
                    pt1 
                    pt2 
                    pt3 
                    (polar pt3 (+ ang (* 0.5 pi)) 100) 
                    nil 
                  ) 
              j          (1+ j) 
        ) 
        (command "move" e "" pt3 pt4) 
      ) 
    ) 
  ) 
  (if (and 
        ang 
        (setq pt1 (getpoint "\n引出线位置(回车不改):")) 
      ) 
    (trim-dim pt1 (polar pt1 ang 100) ss) 
  ) 
  (setvar "osmode" os) 
  (setq *error* olderr) 
  (command "_.undo" "end") 
  (princ) 
)

秋后蚂蚱 · 发表于 2005-12-20 11:03:55

那些乱七八糟的引线在业不用一个个去统了。很好用，谢谢。。

hnyz010 · 发表于 2005-12-21 09:49:25

不知道确切的用处，能说明白点吗？

loveluojerry · 发表于 2005-12-23 13:04:05

还是要解释一下。不然还是不晓得

kongkongkong · 发表于 2005-12-23 13:31:08

最初由 vdennis 发布
[B]也是在晓东下的lsp [/B]

取之于民，用之于民
缺币的朋友多学学

kongkongkong · 发表于 2005-12-24 01:44:03

最初由 xxxiaodong 发布
[B]学习学习谢谢 [/B]

半夜三更出来灌水，你到死都学不好CAD。

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

[分享]：一个很好的标注lsp

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

相关帖子

Re: [分享]：一个很好的标注lsp