【源码分享】模仿天正逐点标注！！！！！

arken

不错不错。楼主能否将“增补尺寸程序”的双击反应器版也共享出来。双击反应器这样的：

[pcode=lisp,true]
;;;双击对象即可启动“编辑特性”命令dblclkename
;;;特别支持：网友8661994
;;; Double Click Reactor
(defun dblclk-edit (dblclk_point / dblclkename owner dblclk_etype dblclk_cmd)
  (setq owner (nentselp (trans (car dblclk_point) 0 1));;指定点来选择对象
        dblclkename (car owner))
  (if dblclkename
    (progn
      (if(>(sslength(ssget "_I"))1)
        (setq dblclk_etype nil)
        (setq dblclk_etype(strcase (vlax-get (vlax-ename->vla-object dblclkename)"objectname")))
        )
      (setq dblclk_cmd (cond
        
                         ...
                              
                         ((= dblclk_etype "什么objectname？")"(wowan1314的增补尺寸) ");wowan1314的增补尺寸
                        
                         ....
                        
                         )
            )
      (vla-sendcommand (vla-get-activedocument(vlax-get-acad-object)) dblclk_cmd)
      )

    )
)
(defun wowan1314的增补尺寸 ()

     ;;wowan1314的代码

)
[/pcode]

13579

不错，好用。

xtdwynij

[pcode=cpp,true]
(defun c:tt ()
  (setq pt1dist (getint "\n请输入标注时[往左拉或往下拉]的长度[10]:"))
  (if (null pt1dist) (setq pt1dist 10))
  (prompt "请选择标注的线段:")
  (setq entss (ssget)) ;(setq entss (ssget "a" '((0 . "LINE"))))
  (setq n 0)
  (repeat (sslength entss)
    (setq ent (ssname entss n)) ;返回选择集的名字,从0开始的这是固定的
    (setq get (entget ent)) ;得出每一个选择集的属性
    (setq pt10 (cdr (assoc 10 get)))
    (setq xpt10 (car pt10))
    (setq ypt10 (cadr pt10))
    (setq pt11 (cdr (assoc 11 get)))
    (setq xpt11 (car pt11))
    (setq ypt11 (cadr pt11))
    (cond
      ((equal ypt10 ypt11 ) (setq pt1 (polar pt10 (/ pi -2) pt1dist)) (command "dimlinear" pt10 pt11 "h" pt1))
      ((equal xpt10 xpt11 ) (setq pt1 (polar pt10 pi pt1dist)) (command "dimlinear" pt10 pt11 "v" pt1))
      (t (setq pt1 (polar pt10 (angle pt10 pt11) pt1dist)) (command "DIMALIGNED"  pt10 pt11 pt1))
    )
    (setq n (+ n 1))
  )
)
    这是得到二点然后可以标注的源码！其实我想要的是X轴和Y轴都能标注的！比如X轴标注类似于连续标注那种。下面是附近有郊果图。望高手指点。[/pcode]

lewyee

标注涉及到的问题提蛮多的，不是一个简单几十K的程序搞得定:)

hardthinking

喜欢这个程序，测试了下，有点小问题，我下的修正版，如下图：

测试的dwg

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:TEST.rar 
下载次数:12  文件大小:606.76 KB 
下载权限: 不限 以上  [免费赚D豆]

转存了2004格式，在CAD2012 2014下测试，希望楼主解决啊

hardthinking

hardthinking 发表于 2013-8-18 20:11
喜欢这个程序，测试了下，有点小问题，我下的修正版，如下图：

测试的dwg转存了2004格式，在CAD2012 201 ...

好的~~感谢楼主无私奉献源码..

hodnes

给力的程序~~~~~~~~~~~~~~~~~~~~

电视大亨007

非常感谢感觉更好

qq748150385

新人入论坛学习 感谢感谢:):)

qwe4250

怎么尺寸样式没有注释性呢？  能不能加下注释性的问题吗？

qwe4250

qwe4250 发表于 2017-6-9 15:32

我默认设置带有注释性的尺寸位当前，在布局上(不开视口情况下)拉出来的数据不对。用回DLI命令(CAD默认的尺寸标注)  拉出来的尺寸是正确

麥芒HFD

不错，领了，谢谢楼主分享..............

kqqt6236

谢谢分享。

scnjlwb

谢谢分享！

heqi110

谢谢分享！这个实用