任意四边形，求框选标出对角线，如图

Andyhon

得先确定要处理项次再撰写代码

renox

Andyhon 发表于 2012-12-3 16:46
得先确定要处理项次再撰写代码

兄弟我是个菜鸟，头脑比较简单，没有看明白你是什么意思。

Andyhon

不理会此二者

  处理尺寸文字错开
  Region
  
花在 撰写代码 的时间可省许多 ...  

renox

不明白，可否贴出一个图片，看看效果

Andyhon

只是个雏型

2. 
   
3. (defun C:test ()
   
4.    (setq ss (ssget '((0 . "LWPOLYLINE") (90 . 4)))
   
5.          nn (sslength ss)
   
6.    )
   
7.    (while (setq ee (ssname ss (setq nn (1- nn))))
   
8.      (setq pts (cdr (reverse (acet-geom-pline-point-list ee nil)))
   
9.             pa (car pts)
   
10.             pb (cadr pts)
    
11.             pc (caddr pts)
    
12.             pd (last pts)
    
13.      )
    
14.      (Command "_dimaligned" pa pc Pause)
    
15.      (Command "_dimaligned" pb pd Pause)
    
16.    )
    
17. )     
    

<br /> (defun C:test ()<br />    (setq ss (ssget '((0 . "LWPOLYLINE") (90 . 4)))<br />          nn (sslength ss)<br />    )<br />    (while (setq ee (ssname ss (setq nn (1- nn))))<br />      (setq pts (cdr (reverse (acet-geom-pline-point-list ee nil)))<br />             pa (car pts)<br />             pb (cadr pts)<br />             pc (caddr pts)<br />             pd (last pts)<br />      )<br />      (Command "_dimaligned" pa pc Pause)<br />      (Command "_dimaligned" pb pd Pause)<br />    )<br /> )     <br />

renox

Andyhon 发表于 2012-12-3 17:19
只是个雏型

哦，还是用不了，提示是错误

Andyhon

...错误...

得提供错误称讯息...

猜是您的 CAD 未安装 ET ...

renox

Andyhon 发表于 2012-12-3 17:30
...错误...

得提供错误称讯息...

; 错误: no function definition: ACET-GEOM-PLINE-POINT-LIST

Andyhon

意及您的 CAD 须补安装 ET ...

renox

哦，谢谢兄弟指教，我先安装试试。