[求助]：倾斜尺寸标注

xiaotang

我想标注图示类型2的标注，一般我都是先标注1，
然后利用命令: DIMEDIT
输入标注编辑类型 [默认(H)/新建(N)/旋转(R)/倾斜(O)] <默认>:o，
达到我需要的效果，有没有利用LSP程序，直接标注倾斜后的效果
标注样式为当前样式，谢谢

snoopychen

14以下这个主要是修改了dimension中的52号的数值，而2000以上的标注似乎奇怪了一些，它的10号和11号量变化了，而52号没有变，其实想的太复杂了，直接用命令dimedit就可以了，：）

[PHP]
;倾斜标注
(defun c:test1()
(command "dim" "ali" pause pause pause "" "exit" )
(command "dimedit" "o" "l" "" 0)
)
[/PHP]

yshf

2楼方法在2000版中实现不了，这为什么？

xiaotang

我个版本是2002中文版，楼主的程序不能达到直接标注倾斜的尺寸，标注的结果如同标注①

PFD8667

我在2006实现不了啊？

xzhmkdzk

不错，支持一下。

snoopychen

不好意思，我的程序中午是在r14下调的，刚才在cad2004下调了一下，确实不行，找了一会，终于发现是2000以上dim的数据库有点不同，此时还要顺便修改一下assoc 10 和 assoc 11
等我吃完饭再调一下，应该就可以了。脸红：）

吃完饭，调整了半天没有结果，改了dim的结果，但是一旦entmod之后，又回去了，郁闷的很，后来觉得笨了，直接用dimedit修改就可以，修改结果见二楼

结果上来一看，xyp兄已经搞定了，越发觉得我很笨

and2008

我用test1做了一下，文字总是水平的，而且两边的尺寸界线也无法自动倾斜，和cad自带的倾斜标注是一样的效果。这是怎么回事呢？不晓得是不是7楼所说的那回事。另外7楼说的“assoc 10 和 assoc 11”是什么意思，也没搞明白，麻烦解答一下。多谢了！

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (setq        pt1 (getpoint "\n指定第一条尺寸界线原点 : ")
   
4.         pt2 (getpoint pt1 "\n指定第二条尺寸界线原点 : ")
   
5.         pt3 (getpoint pt2 "\n定尺寸线位置 : ")
   
6.   )
   
7.   (command "dim1" "ali" pt1 pt2 pt3 "")
   
8.   (command "DIMEDIT" "o" "l" "" "0")
   
9. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        pt1 (getpoint "\n指定第一条尺寸界线原点 : ")<br />         pt2 (getpoint pt1 "\n指定第二条尺寸界线原点 : ")<br />         pt3 (getpoint pt2 "\n定尺寸线位置 : ")<br />   )<br />   (command "dim1" "ali" pt1 pt2 pt3 "")<br />   (command "DIMEDIT" "o" "l" "" "0")<br /> )[/FONT]

PFD8667

斑竹您好!
       您这程序很好用在某些方面2006版也能用,但我发现无法设定倾斜度,但命令行又反映 倾斜度,不知如何设定倾斜度,请指教!多谢了!

xyp1964

控制箭头大小、倾斜角度、标注层和颜色：

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
    
14. 
    
15. (defun c:test ()
    
16.   (cmdla0)
    
17.   (setvar "dimblk" ".")
    
18.   (setvar "dimblk1" ".")
    
19.   (setvar "dimblk2" ".")
    
20.   (setvar "dimasz" 300)
    
21.   (setq        pt1 (getpoint "\n指定第一条尺寸界线原点 : ")
    
22.         pt2 (getpoint pt1 "\n指定第二条尺寸界线原点 : ")
    
23.         pt3 (getpoint pt2 "\n定尺寸线位置 : ")
    
24.         no1 (UREAL 1 "" "\n倾斜角度" no1)
    
25.   )
    
26.   (mkla "标注" 3)
    
27.   (command "dim1" "ali" pt1 pt2 pt3 "")
    
28.   (command "DIMEDIT" "o" "l" "" no1)
    
29.   (cmdla1)
    
30. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<br /> 5.将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;<br /> <br /> (defun c:test ()<br />   (cmdla0)<br />   (setvar "dimblk" ".")<br />   (setvar "dimblk1" ".")<br />   (setvar "dimblk2" ".")<br />   (setvar "dimasz" 300)<br />   (setq        pt1 (getpoint "\n指定第一条尺寸界线原点 : ")<br />         pt2 (getpoint pt1 "\n指定第二条尺寸界线原点 : ")<br />         pt3 (getpoint pt2 "\n定尺寸线位置 : ")<br />         no1 (UREAL 1 "" "\n倾斜角度" no1)<br />   )<br />   (mkla "标注" 3)<br />   (command "dim1" "ali" pt1 pt2 pt3 "")<br />   (command "DIMEDIT" "o" "l" "" no1)<br />   (cmdla1)<br /> )[/FONT]

xiaotang

最初由 xyp1964 发布
[B][CODE](defun c:test ()
  (setq        pt1 (getpoint "\n指定第一条尺寸界线原点 : ")
        pt2 (getpoint pt1 "\n指定第二条尺寸界线原点 : ")
        pt3 (getpoint pt2 "\n定尺寸线位置 : ")
  )
  (comm... [/B]

使用这个已经解决了问题，唯一麻烦的是创建的是无关联的标注，稍微有点遗憾
另外PFD楼主说的无法进行角度标注，其实这个程序默认的就是0度，适合我的倾斜标注要求

PFD8667

斑竹您好!
我测试了一下解决了倾斜角度，但箭头却没有了。

xyp1964

圆点方式：

2. [FONT=courier new]
   
3. (defun c:test ()
   
4.   (cmdla0)
   
5.   (jzhz)
   
6.   (setvar "dimblk" "dot")
   
7.   (setvar "dimblk1" "dot")
   
8.   (setvar "dimblk2" "dot")
   
9.   (setvar "DIMTXSTY" "宋体")
   
10.   (setvar "dimasz" 100)
    
11.   (setq        pt1 (getpoint "\n指定第一条尺寸界线原点 : ")
    
12.         pt2 (getpoint pt1 "\n指定第二条尺寸界线原点 : ")
    
13.         pt3 (getpoint pt2 "\n定尺寸线位置 : ")
    
14.         no1 (UREAL 1 "" "\n倾斜角度" no1)
    
15.   )
    
16.   (mkla "标注" 3)
    
17.   (command "dim1" "ali" pt1 pt2 pt3 "")
    
18.   (command "DIMEDIT" "o" "l" "" no1)
    
19.   (cmdla1)
    
20. )[/FONT]

[FONT=courier new]<br /> (defun c:test ()<br />   (cmdla0)<br />   (jzhz)<br />   (setvar "dimblk" "dot")<br />   (setvar "dimblk1" "dot")<br />   (setvar "dimblk2" "dot")<br />   (setvar "DIMTXSTY" "宋体")<br />   (setvar "dimasz" 100)<br />   (setq        pt1 (getpoint "\n指定第一条尺寸界线原点 : ")<br />         pt2 (getpoint pt1 "\n指定第二条尺寸界线原点 : ")<br />         pt3 (getpoint pt2 "\n定尺寸线位置 : ")<br />         no1 (UREAL 1 "" "\n倾斜角度" no1)<br />   )<br />   (mkla "标注" 3)<br />   (command "dim1" "ali" pt1 pt2 pt3 "")<br />   (command "DIMEDIT" "o" "l" "" no1)<br />   (cmdla1)<br /> )[/FONT]

PFD8667

斑竹您好!
我是搞机械的最好是用9楼程序的箭头方式，圆点不适合，另外字体也不要用宋体的应随层,请您再改一下好吗？在此表示谢意！