[编程申请]：谁帮我写一个AUTOlisp程序

cssanhui

最初由 sidney2002 发布
[B] [/B]

aeo的程序，我试了，除了选择时未给提示外，没有任何问题。是不是和你的CAD有关系？用的什么汉化本？怎么尽是大写？

改进后的程序如下：
(defun c：aaa( / len s)
  (defun len(e)(distance(cdr(assoc 10(entget e)))(cdr(assoc 11(entget e)))))
  (setq s(+(/(len(car (entsel "\nL1")))(len(car (entsel "\nW1"))))(/(len(car (entsel "\nL2")))(len(car (entsel "\nW2")))) ))
  (princ s)
)

加载后，输入aaa试试。

sidney2002

可以加载成功,但输入aaa, 提示没有这个命令名

cssanhui

没给你说明，（defun c：aaa( / len s)句中c后的符号你改成英文的冒号即可。

sidney2002

刚才我试了，我以前图形没炸开...还要提示输入L1，WI，L2,，W2，不知道你注意到没有,拔赛

结果可是不正确的..?????

我想要的是程序执行后，提示选择要计算的图形，然后框选，就得出结果不用去回应L1,W1等等

cssanhui

楼上的，I服了U，真的，搞到现在，你才告诉大家，你那图形是块。害的lt_zzy 兄三番五次给你改程序都只能用于非块，好不容弄了个aeo MM，写了个精致的小程序，也用不上。看样子还得看看有没有高手出现？你等着阿。

XDSoft

强烈建议大家问问题的时候，一定要说明自己要处理的是什么实体，最好把一个样子图压缩后，贴到论坛来作为测试用图。

XDSoft

给你写了一个，程序可以求你给的图形样子的，实体可以是：LINE组成，或者是一根PLINE组成，或者是一个由LINE或者PL组成的“块”
都可以处理。

程序要在晓东工具箱下运行。

2. <normalfont>
   
3. (defun c:test (/ sort cutlast ss outline box l1 l2 w1 w2 ratio)
   
4.   (defun sort (base ptl)
   
5.     (append
   
6.       (member base ptl)
   
7.       (cdr (member base (reverse ptl)))
   
8.     )
   
9.   )
   
10.   (defun cutlast (ptl)
    
11.     (reverse (cdr (reverse ptl)))
    
12.   )
    
13.   (prompt "\n请选择要处理的实体<退出>:")
    
14.   (if (and
    
15.         (setq ss (ssget))
    
16.         (setq outline (xdrx_searchoutline ss))
    
17.         (setq outline (cutlast (car outline)))
    
18.       )
    
19.     (progn
    
20.       (setq box (apply 'xdrx_pointsbox outline)
    
21.             outline (ls (car box) outline)
    
22.             w1 (distance (car outline)(cadr outline))
    
23.             w2 (distance (nth 3 outline)(nth 4 outline))
    
24.             l2 (distance (nth 4 outline)(nth 5 outline))
    
25.             l2 (- l2 w1)
    
26.             l1 (distance (nth 5 outline)(nth 0 outline))
    
27.             l1 (- l1 w2)
    
28.             ratio (+ (/ l1 w1)(/ l2 w2))
    
29.       )
    
30.       (prompt (strcat "\n长宽比的和是:" (rtos ratio 2 4)))
    
31.     )
    
32.   )
    
33.   (princ)
    
34. )
    
35. </font>

<normalfont><br /> (defun c:test (/ sort cutlast ss outline box l1 l2 w1 w2 ratio)<br />   (defun sort (base ptl)<br />     (append<br />       (member base ptl)<br />       (cdr (member base (reverse ptl)))<br />     )<br />   )<br />   (defun cutlast (ptl)<br />     (reverse (cdr (reverse ptl)))<br />   )<br />   (prompt "\n请选择要处理的实体<退出>:")<br />   (if (and<br />         (setq ss (ssget))<br />         (setq outline (xdrx_searchoutline ss))<br />         (setq outline (cutlast (car outline)))<br />       )<br />     (progn<br />       (setq box (apply 'xdrx_pointsbox outline)<br />             outline (ls (car box) outline)<br />             w1 (distance (car outline)(cadr outline))<br />             w2 (distance (nth 3 outline)(nth 4 outline))<br />             l2 (distance (nth 4 outline)(nth 5 outline))<br />             l2 (- l2 w1)<br />             l1 (distance (nth 5 outline)(nth 0 outline))<br />             l1 (- l1 w2)<br />             ratio (+ (/ l1 w1)(/ l2 w2))<br />       )<br />       (prompt (strcat "\n长宽比的和是:" (rtos ratio 2 4)))<br />     )<br />   )<br />   (princ)<br /> )<br /> </font>