多边形批量快速标注LSP

bai2000

楼上，源码放出来啊

liuxing_insist

菜卷鱼 发表于 2014-1-16 08:38
我不是版主，不知道我能不能改

大神能不能优化一下这个代码呢，这个代码标注与线的距离不固定，还有标注多段线直接把多段线转换成了细线。

paulpipi

好用，太感谢了

cadxuexi

liuxing_insist 发表于 2018-8-20 19:57
大神能不能优化一下这个代码呢，这个代码标注与线的距离不固定，还有标注多段线直接把多段线转换成了细线 ...

(defun c:z2 ()
   (prompt "此程序根据当前标注样式进行标注,设置textsize变量可修改与标注线的距离!")
(setq dic (* 0 (getvar "dimscale")))
  (setq ss (ssget))
  (setq n 0)
  (repeat (sslength ss)
    (setq en (ssname ss n))
    (setq endata (entget en))
    (if (= (cdr (assoc 0 endata)) "LWPOLYLINE")
      (mmh_3 en)
      (if (= (cdr (assoc 0 endata)) "ARC")
(mmh_1 en)
(mmh_2 endata)
      )
    )
    (setq n (1+ n))
  )
  (princ)
)
(prompt "<<z1>>快速标注")
(defun mmh_1 (en)
  (setvar "osmode" 0)
  (setq po_1 (vlax-curve-getstartPoint en))
  (setq po_2 (vlax-curve-getendPoint en))
  (setq po_1_x (car po_1))
  (setq po_1_y (cadr po_1))
  (setq po_2_x (car po_2))
  (setq po_2_y (cadr po_2))
  (command "dimaligned" po_1 po_2 po_1)
  (setvar "osmode" 1)
)
(defun mmh_2 (endata)
  (setvar "osmode" 0)
  (setq p_1 (cdr (assoc 10 endata)))
  (setq p_2 (cdr (assoc 11 endata)))
  (setq p3 (polar p_1 (+ (angle p_1 p_2) (/ pi 2)) dic))
  (command "dimaligned" p_1 p_2 p3)
  (setvar "osmode" 1)
)
(defun mmh_3 (en)
  (setq m 0)
  (command "explode" en "")
  (setq ssl (ssget "p"))
  (repeat (sslength ssl)
    (setq enl (ssname ssl m))
    (setq enldata (entget enl))
    (if (= (cdr (assoc 0 enldata)) "ARC")
      (mmh_1 enl)
      (mmh_2 enldata)
    )
    (setq m (1+ m))
  )
  (command "pedit" "m" ssl "" "y" "j" "" "")
)

cadxuexi

liuxing_insist 发表于 2018-8-20 19:57
大神能不能优化一下这个代码呢，这个代码标注与线的距离不固定，还有标注多段线直接把多段线转换成了细线 ...

优化过了的代码，标注直接调节到在线上，捕捉也不会在每次使用插件，全部自动选上

13657880910

大神可以再深化一下吗。创建了边界后，直接把边界的尺寸标出来，不用再手动选边界。附下开头如下：(defun c:fff ()        (SETVAR "cmdecho" 0)关闭捕捉
        (setq pt(getpoint "拾取矩形内部点"))
        (command "-boundary")(command pt)(command "");创建边界

qjg_77

大家试试，这个行不行

yoyoho

谢谢! qjg_77 分享程序!!!!!

sdbaijiao

谢谢! qjg_77 分享的程序，在CAD2010试用，可以标注边长、对角线。标注不了角度。

stardelet7777

好用，太感谢了