社区 › 编程申请 › 任意四边形，求框选标出对角线，如图

Andyhon 发表于 2012-12-3 16:46:25

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

renox 发表于 2012-12-3 16:50:01

Andyhon 发表于 2012-12-3 16:46 static/image/common/back.gif
得先确定要处理项次再撰写代码

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

Andyhon 发表于 2012-12-3 16:55:46

不理会此二者

处理尺寸文字错开
Region

花在 撰写代码 的时间可省许多 ...

renox 发表于 2012-12-3 17:05:48

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

Andyhon 发表于 2012-12-3 17:19:09

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

renox 发表于 2012-12-3 17:24:46

Andyhon 发表于 2012-12-3 17:19 static/image/common/back.gif
只是个雏型

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

Andyhon 发表于 2012-12-3 17:30:05

...错误...

得提供错误称讯息...

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

renox 发表于 2012-12-3 17:34:14

Andyhon 发表于 2012-12-3 17:30 static/image/common/back.gif
...错误...

得提供错误称讯息...



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

Andyhon 发表于 2012-12-3 18:25:09

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

renox 发表于 2012-12-3 18:28:37

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

查看完整版本: 任意四边形，求框选标出对角线，如图