多段线标注程序

Lisphk · 发表于 2016-11-9 14:58:32

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

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

×

(defun c:pdim (/ plSet pLlst vLst oldOsn cAng cDis cPt)
  (princ "\n<<< Select LwPolyline for dimensioning >>> ")
  (if (setq plSet (ssget '((0 . "LWPOLYLINE"))))
    (progn
      (setq pLlst (vl-remove-if
                    'listp
                    (mapcar 'cadr (ssnamex plSet))
                  )
      )
      (setvar "OSMODE" 0)
      (setvar "CMDECHO" 0)
      (foreach pl pLlst
        (setq vLst   (mapcar 'cdr
                             (vl-remove-if-not
                               '(lambda (x) (= 10 (car x)))
                               (entget pl)
                             )
                     )
              oldOsn (getvar "OSMODE")
        )                                ; end setq
        (while (< 1 (length vLst))
          (setq        cAng (angle (car vLst) (cadr vLst))
                cDis (/ (distance (car vLst) (cadr vLst)) 2)
                cPt  (polar (polar (car vLst) cAng cDis)
                            (+ cAng (/ pi 2))
                            (* 2 (getvar "DIMTXT"))
                     )
          )                                ; end setq
          (command "_.dimaligned" (car vLst) (cadr vLst) cPt)
          (setq vLst (cdr vLst))
        )                                ; end while
      )                                        ; end foreach
      (setvar "OSMODE" oldOsn)
      (setvar "CMDECHO" 1)
    )                                        ; end progn
  )                                        ; end if
  (princ)
)                                        ; end of c:pdim

ll_j · 发表于 2016-11-9 15:10:39

为什么缺一段？

iLisp · 发表于 2016-11-9 15:32:48

没有 C 的正好

HLCAD · 发表于 2016-11-9 17:08:40

好程序！谢谢楼主。

Lisphk · 发表于 2016-11-9 18:02:36

ll_j 发表于 2016-11-9 15:10

C封闭的那段没标，要标可以修改代码。

cable2004 · 发表于 2016-11-9 21:33:46

加逆时针的判断，否则有些会标注在里面！

yoyoho · 发表于 2016-11-9 21:55:30

正需要，支持Lisphk楼主大人了！

sh_h · 发表于 2016-11-10 08:49:18

啥也不说了，感谢楼主分享哇！

sicky111 · 发表于 2016-11-11 14:22:38

应该全标上。

kqqt6236 · 发表于 2016-11-11 14:25:20

谢谢分享源码。

杜流浪人 · 发表于 2016-11-12 15:31:48

支持楼主了！

cq_qg68 · 发表于 2017-1-3 09:06:17

不知道有圆弧的行不行，试试

我的广易精通 · 发表于 2017-7-15 19:14:28

这个不错，如果像梁线加个距离判断，相近的只标注一边就高大了

zhouzhiy · 发表于 2017-7-27 21:47:10

谢谢楼主分享！

qhdycm2016 · 发表于 2017-8-24 17:07:51

很好谢谢楼主

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

[每日一码] 多段线标注程序

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

相关帖子