这是一个简单的开始
(vl-load-com)
(defun c:plinearea ( / obj)
(setq obj (vlax-ename->vla-object (car (entsel "\nPick Pline"))))
(setq plarea (vla-get-area obj))
(alert (strcat "Area is sq feet " (rtos plarea 2 2) "\n\n" "Area is sq m" (rtos (* plarea 0.09290304) 2 2)))
)
不要发布两次,这让人困惑
版主请加入。 这是我的第一篇帖子。我牢记在心。 最后我得到了一个完美的fas文件 如果其他人有这个问题,你能分享一下你是如何解决的吗? 线程被合并。 请检查代码。谢谢你的回复。
区域窗口-AW。rar公司
大家好,
有趣的帖子。我已经试过你的“.fas”代码了。我已经创建了5mx10m的矩形。面积为50平方米,但面积平方英尺的邪恶点显示为4.64平方英尺,而不是538.195平方英尺。其余单元未经测试。另一个要求是放置不同单位的区域文本,而不是对话框结果。我们也会等待这个版本。
顺致敬意,
页:
1
[2]