知道边长和面积，在CAD中如何准确画出一个不规则多边形

1. 把不规则多边形变为已知面积可以做到。

2. 要准确的变为已知面积，这个可以使用程序来实现，代码如下：
   

3. (defun C:tes ( / %k1 &ob1 &p1 ent1 mj1 mj2)
    (if (null vlax-dump-object) (vl-load-com) )
    (if (and
     (> (setq MJ1 (getdist "\n请输入面积")) 0)
     (setq ent1 (entsel "\n请选择要改变面积的多边形"))
     (setq &p1 (cadr ent1) ent1 (car ent1))
     (setq &ob1 (vlax-ename->vla-object ent1))
     (setq MJ2 (vla-get-Area &ob1))
        )
     (progn;;1
      (setq %k1 (/ (expt (/ MJ1 pi) 0.5) (expt (/ MJ2 pi) 0.5)));求得比例
      (command "SCALE" ent1 "" &p1 %k1)
     );progn;1
    );if;1
    (princ)
   );复制到记事本,以【.lsp】为后缀命名,打开CAD，autolisp加载，命令【TES】，就会把多边形变为已知面积

可惜您生不逢时。在古时至少也是位居当朝宰相！可惜可悲可怜可歌可泣可喜可贺