[求助]如何取得整个图形的总长度及总高度?

vocabulary

如题!如何取得整个图形的总长度及总高度?先谢谢了!

killer9806

最笨的方法是有的。

整个图形画个矩形，量一下就OK

BDYCAD

请参考:
http://www.mjtd.com/Functions/ArticleShow.asp?ArticleID=177

http://www.mjtd.com/Functions/ArticleShow.asp?ArticleID=998

vocabulary

为个程序不是很明白,能不能请楼上的高手给注解一下?

(DEFUN GET-PointList-4pt(PT_LIST / PT1A PT1B PT2A PT2B)
  (setq pt3(LIST(apply 'max (mapcar '(lambda (x) (car X)) PT_LIST))
   (apply 'max (mapcar '(lambda (x) (caDr X)) PT_LIST)))
 T1(LIST(apply 'mIN (mapcar '(lambda (x) (car X)) PT_LIST))
   (apply 'mIN (mapcar '(lambda (x) (caDr X)) PT_LIST))))
  (list PT1 (LIST (car pt3)(cadr PT1))pt3(LIST (car PT1)(cadr pt3)))
  ;点表四个点[<左下角点> <右下角点> <右上角点> <左上角点>]
  )

vocabulary

我是想在现有图形上根据用户提供的尺寸加一个外围框,我在网上找到一个全程,自己修改了一下,加载LSP文件就行,但编译成VLX文件后加载就出现问题,问题为加入的外围框不分中,请各位高手帮忙看看我的程序哪里有问题,先谢谢了!