标注文字加框

明天你好

想框选标注尺寸，批量修改，手动做是点击尺寸，属性－－公差 －－显示公差 变为基本尺寸，（就是为尺寸加一个框），如果用lisp 框选尺寸，批量修改，要怎么写呢？

明天你好

{:soso_e127:} 不清楚规定，下次知道了

明天你好

嗯，我的意思是可以批量选择尺寸，然后将 公差－－显示公差变为基本尺寸。

st788796

没有用过公差，你演示下怎么操作的

明天你好

st788796 发表于 2014-9-25 09:02
没有用过公差，你演示下怎么操作的

手动是这样操作的
1.右击尺寸，点属性
2.找到公差项， 在将“显示公差” 右边的值改为“基本尺寸”


效果是这样的



想用lisp编程的方式，可以框选标注尺寸进入修改

Lispboy

设置OVERRIDE， dimgap,dimtol,dimlim ，看图。

Lispboy

明天你好 发表于 2014-9-25 11:31
手动是这样操作的
1.右击尺寸，点属性
2.找到公差项， 在将“显示公差” 右边的值改为“基本尺寸”

往尺寸里面应用程序名ACAD下面添加拓展实体数据

命令: (entget (entlast) '("acad"))
((-1 . <图元名: 7ee68f98>) (0 . "DIMENSION") (330 . <图元名: 7ee68cf8>) (5 .
"F3") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbDimension") (2 . "*D1") (10 1428.54 542.568 0.0) (11 1408.65 545.276 0.0)
(12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 39.7852)
(52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "ISO-25")
(100 . "AcDbAlignedDimension") (13 1388.75 562.433 0.0) (14 1428.54 559.95 0.0)
(15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 .
"AcDbRotatedDimension") (-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 147)
(1040 . -0.625) (1070 . 72) (1070 . 0) (1070 . 71) (1070 . 0) (1002 . "}"))))

st788796

1. (defun c:tt (/ ss)
   
2.   (if (setq ss (ssget '((0 . "dimension"))))
   
3.     (mapcar '(lambda (x)
   
4.                (mapcar '(lambda        (a b)
   
5.                           (xdrx_setpropertyvalue x a b)
   
6.                         )
   
7.                        '("DIMGAP" "DIMLIM" "DIMTOL" "DIMUPT")
   
8.                        '(-0.6250 nil nil t)
   
9.                )
   
10.              )
    
11.             (xdrx_pickset->ents ss)
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

(defun c:tt (/ ss)<br />   (if (setq ss (ssget '((0 . "dimension"))))<br />     (mapcar '(lambda (x)<br />                (mapcar '(lambda        (a b)<br />                           (xdrx_setpropertyvalue x a b)<br />                         )<br />                        '("DIMGAP" "DIMLIM" "DIMTOL" "DIMUPT")<br />                        '(-0.6250 nil nil t)<br />                )<br />              )<br />             (xdrx_pickset->ents ss)<br />     )<br />   )<br />   (princ)<br /> )

明天你好

st788796 发表于 2014-9-25 12:45

no function definition: XDRX_PICKSET->ENTS
是不是要加载晓东的库文件啊？能不能不加载啊？

lucas3

不错的例程，记得燕秀里也有这个功能， 又要加API啊……。

zxq0220

lucas3 发表于 2014-9-25 20:04
不错的例程，记得燕秀里也有这个功能， 又要加API啊……。

不知行不行

2. (defun c:tt (/ ss dimlst olddim)
   
3.   (if (setq ss (ssget '((0 . "dimension")))) (progn
   
4.    (setq dimlst '("DIMGAP" "DIMLIM" "DIMTOL" "DIMUPT"))
   
5.    (setq olddim (mapcar 'getvar dimlst))
   
6.    (mapcar 'setvar dimlst '(-0.625 0 0 1))
   
7.    (command "-DIMSTYLE" "APPLY" ss "")
   
8.    (mapcar 'setvar dimlst olddim)
   
9.   ))
   
10.   (princ)
    
11. )

(defun c:tt (/ ss dimlst olddim)<br />   (if (setq ss (ssget '((0 . "dimension")))) (progn<br />    (setq dimlst '("DIMGAP" "DIMLIM" "DIMTOL" "DIMUPT"))<br />    (setq olddim (mapcar 'getvar dimlst))<br />    (mapcar 'setvar dimlst '(-0.625 0 0 1))<br />    (command "-DIMSTYLE" "APPLY" ss "")<br />    (mapcar 'setvar dimlst olddim)<br />   ))<br />   (princ)<br /> )

Free-Lancer

不用那么多

1. (defun c:tt ()
   
2.   (fy:begin)
   
3.   (if (ssget '((0 . "dimension")))
   
4.     (vlax-for dim (fy:cset)
   
5.       (vla-put-ToleranceDisplay dim acTolBasic)
   
6.     )
   
7.   )
   
8.   (fy:end)
   
9.   (princ)
   
10. )

(defun c:tt ()<br />   (fy:begin)<br />   (if (ssget '((0 . "dimension")))<br />     (vlax-for dim (fy:cset)<br />       (vla-put-ToleranceDisplay dim acTolBasic)<br />     )<br />   )<br />   (fy:end)<br />   (princ)<br /> )

lucas3

zxq0220 发表于 2014-9-26 07:46
不知行不行

谢谢Z版，可是不行了

夏生生

用Z版的改了下

2. (defun c:tt (/ ss dimlst olddim)
   
3.   (if (setq ss (ssget '((0 . "dimension"))))
   
4.     (progn
   
5.       (setq dimlst '("DIMGAP" "DIMLIM" "DIMTOL" "DIMUPT"))
   
6.       (setq olddim (mapcar 'getvar dimlst))
   
7.       (mapcar 'setvar dimlst '(-0.625 0 0 1))
   
8.       (command "-DIMSTYLE" "APPLY" ss "")
   
9.       (mapcar 'setvar dimlst olddim)
   
10.     )
    
11.   )
    
12.   (princ)
    
13. )

(defun c:tt (/ ss dimlst olddim)<br />   (if (setq ss (ssget '((0 . "dimension"))))<br />     (progn<br />       (setq dimlst '("DIMGAP" "DIMLIM" "DIMTOL" "DIMUPT"))<br />       (setq olddim (mapcar 'getvar dimlst))<br />       (mapcar 'setvar dimlst '(-0.625 0 0 1))<br />       (command "-DIMSTYLE" "APPLY" ss "")<br />       (mapcar 'setvar dimlst olddim)<br />     )<br />   )<br />   (princ)<br /> )

明天你好

谢谢各位大师的出手相助！