，尺寸线性标注800远 各位版主大人~~~速度来赚钱了

freeok

xyp1964 发表于 2014-3-14 21:15

院长，这个能改成标注刷么？就是一把把所有标注刷成800远？谢谢

大老笨蛋

离开距离<输入或鼠标直接量取><142.493>: 800

第一点:
第二点:  <正交 开>
方向点:
下一点<退出>:
下一点<退出>:

** 该命令不能透明调用 **
标了两次就用不了了 是什么问题啊？cad2012

依然小小鸟

不错的帖子 支持一下

siguenguen

xyp1964 发表于 2014-3-14 14:17

错误: no function definition: UDIST

胖大海

(defun c:tt ()
(setq old_lay (getvar "clayer")) ;将当前图层保存起来，以便以后的恢复
  (if (and (setq p1 (getpoint "\n第一点: "))
           (setq p2 (getpoint p1 "\n第二点: "))
           (setq p3 (getpoint p2 "\n方向点: "))
      )
    (progn
      (setq ang        (angle p1 p2)
            r1        (+ ang (* pi 0.5))
            p4        (inters p1 p2 p3 (polar p3 r1 10) nil)
            p3        (polar p4 (angle p4 p3) 800);尺寸标注长度
      )
(command "layer" "s" "DIM" "")  ;设置当前层DIM，可改成自己标注图层
      (command "_dimaligned" "non" p1 "non" p2 "non" p3) ;调用当前标注样式进行线性标注，切换当前标注样式 DIMSTYLE
    )
  )
(setvar "clayer"  old_lay ) ;恢复原来图层
  (princ)
)[/code]

happy336

谢谢分享，支持

1028695446

(defun c:tt(/ p1 p2 p4 temp ent elist pt10_old pt10_new *dim_dist)
  (if (and (setq p1 (getpoint "\n第一点: "))
                                (setq p2 (getpoint p1 "\n第二点: "))
      )
    (progn
      (setq rad (angle p1 p2)
                                r1(+ rad (* pi 0.5))
      )
                        (if (null *dim_dist)
                                (setq *dim_dist (* 5 (getvar "DIMSCALE")));;设定偏移默认值
                                (progn
                                        (princ"\n尺寸线偏移距离：")
                                        (princ *dim_dist)
                                )
                        )
                        (if(setq temp (getdist(strcat "\n请输入尺寸线偏移距离：<"(rtos *dim_dist) ">")))
                                (setq *dim_dist temp)
                        )
                        (command "_dimaligned" "non" p1 "non" p2 pause)
                        (setq ent (entlast)
                                elist(entget ent)
                                pt10_old (cdr(assoc 10 elist))
                                p4 (inters p1 p2 pt10_old (polar pt10_old r1 10) nil)
                                pt10_new (polar p4 (angle p4 pt10_old) *dim_dist);;;;距离
                                elist (subst (cons 10 pt10_new) (assoc 10 elist) elist)
                        )
                        (entmod elist)
                        (while (setq p4 (getpoint "\n下一点<退出>: "))
                                (setq p4 (inters p1 p2 p4 (Polar p4 r1 1000) nil))
                                (command "DIMCONTINUE" "non" p4)
                                (while (> (getvar "CMDACTIVE") 0) (command ""))
                        )
                )
        )
        (princ)
)

xj6019

不错的代码  值得收留  有待研究

xj6019

谁能把17楼的和27楼的结合一下啊  ，命令运行后就先输入偏移值，并可以记忆便宜量，然后可以连续点击标注，和dco一样的功能，，， 斜线的时候最好还能加个识别方向，是斜线标注，还是线型标注   

依然小小鸟

不错的帖子 学习了