请高手帮忙优化现有程序

xiongqunan

本程序是画一些只需说明零件厚度的侧视图用的！但现在画出来后无法自动标注府视图的高度尺寸及主视图的外形长宽尺寸（如附图所示）！请高手们在帮忙优化优化。
注此程序已经过Zxq0220优化需得到现有的结果（在此特别感谢他了）！

emk

左视、俯视图形都不对啊，少了圆角的线
无函数：jx_lay_unlock

xiongqunan

emk 发表于 2013-10-11 11:56
左视、俯视图形都不对啊，少了圆角的线
无函数：jx_lay_unlock

我们这侧示图只需要表示出主视图的高度就可以了！其它的线都可以不要的，加工中心看得懂。能按我的要求帮我优化一下吗？

xyp1964

2. 
   
3. ;; 绘制零件侧视图
   
4. (defun c:tt ()
   
5.   (setq hh (Udist 7 "" "厚度<输入或鼠标直接量取>" hh nil))
   
6.   (if (setq s1 (car (entsel "\n请选取要加侧视图的物件: ")))
   
7.     (progn
   
8.       (setq p1        (xyp-9pt s1 1)
   
9.             p9        (xyp-9pt s1 9)
   
10.             p3        (xyp-9pt s1 3)
    
11.             la        (xyp-DXF 8 s1)
    
12.             p11        (xyp-Pt2Y p1 -1000)
    
13.             p31        (xyp-Pt2Y p3 -1000)
    
14.             p32        (xyp-Pt2Y p31 (- hh))
    
15.             p33        (xyp-Pt2X p3 1000)
    
16.             p91        (xyp-Pt2X p9 1000)
    
17.             p92        (xyp-Pt2X p91 hh)
    
18.             p12        (xyp-Pt2Y p11 (- hh))
    
19.             p34        (xyp-Pt2X p33 hh)
    
20.       )
    
21.       (xyp-MkLa la)
    
22.       (xyp-rectang p11 p32)
    
23.       (xyp-rectang p33 p92)
    
24.       (xyp-MkLaCo "DIM" 3)
    
25.       (xyp-dim-hor p12 p32 (xyp-Pt2Y p12 -1000))
    
26.       (xyp-dim-ver p34 p92 (xyp-Pt2X p34 1000))
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    

<br /> ;; 绘制零件侧视图<br /> (defun c:tt ()<br />   (setq hh (Udist 7 "" "厚度<输入或鼠标直接量取>" hh nil))<br />   (if (setq s1 (car (entsel "\n请选取要加侧视图的物件: ")))<br />     (progn<br />       (setq p1        (xyp-9pt s1 1)<br />             p9        (xyp-9pt s1 9)<br />             p3        (xyp-9pt s1 3)<br />             la        (xyp-DXF 8 s1)<br />             p11        (xyp-Pt2Y p1 -1000)<br />             p31        (xyp-Pt2Y p3 -1000)<br />             p32        (xyp-Pt2Y p31 (- hh))<br />             p33        (xyp-Pt2X p3 1000)<br />             p91        (xyp-Pt2X p9 1000)<br />             p92        (xyp-Pt2X p91 hh)<br />             p12        (xyp-Pt2Y p11 (- hh))<br />             p34        (xyp-Pt2X p33 hh)<br />       )<br />       (xyp-MkLa la)<br />       (xyp-rectang p11 p32)<br />       (xyp-rectang p33 p92)<br />       (xyp-MkLaCo "DIM" 3)<br />       (xyp-dim-hor p12 p32 (xyp-Pt2Y p12 -1000))<br />       (xyp-dim-ver p34 p92 (xyp-Pt2X p34 1000))<br />     )<br />   )<br />   (princ)<br /> )<br />

xiongqunan

xyp1964 发表于 2013-10-11 14:29

加载后出现  ” tt1 ; 错误: no function definition: UDIST ”是怎么回事呀？

hhh454

要加载院长的工具箱才行

xiongqunan

hhh454 发表于 2013-10-12 00:23
要加载院长的工具箱才行

院长的工具箱那里有哇？

emk

院长的群共享内下载： LSP编程,e派工具箱,摄影名称 群   号：  24942984
院长的云盘下载    :   http://yunpan.cn/QXQKsW9gAPmpF

xiongqunan

应该在那里加一个自动识别方向就可以了吧，有高手指点一下吗。