[求助] 能帮忙详细分析下次源程序吗?

PhantomFox · 发表于 2011-12-19 16:50:24

本帖最后由 PhantomFox 于 2011-12-19 17:24 编辑

我正在学习lisp语言，有个程序，对里面的几个步骤不是很明白，请高手指点！
能把每行的具体内容和作用写明最好！

;;;重圆消除（相同圆心、相同半径）;;;
========================================
(defun C:TT (/ SS LST I EN ENL PT10 PT11 A N LST_NEW)
(if (setq SS (ssget '((0 . "CIRCLE"))))
(progn ;;组织成表((en pt10 pt11)...)
(setq LST '()
I 0
)
(repeat (sslength SS)
(setq EN (ssname SS I)
ENL (entget EN)
PT10 (cdr (assoc 10 ENL))
r (cdr (assoc 40 ENL))
)
(setq LST (cons (list EN PT10 r) LST))
(setq I (1+ I))
)
;;逐个对比
(while LST
;;取首个
(setq A
(car LST)
LST (cdr LST)
)
;;对比
(setq LST_NEW '())
(foreach N LST
(if
(and (equal (cadr A) (cadr N) 0.001)
(equal (caddr A) (caddr N) 0.001)
)
(entdel (car N)) ;_删除实体
(setq LST_NEW (cons N LST_NEW))
)
)
;; (setq LST LST_NEW) ) ) )
(princ)
)
)
)
)

;;;重圆消除 （相同圆心、相同半径）;;; 
======================================== 
(defun C:TT (/ SS LST I EN ENL PT10 PT11 A N LST_NEW) 
  (if (setq SS (ssget '((0 . "CIRCLE")))) 
    (progn ;;组织成表((en  pt10  pt11)...)          
    (setq LST '() 
   I   0 
    ) 
    (repeat (sslength SS) 
      (setq EN (ssname SS I) 
     ENL (entget EN) 
     PT10 (cdr (assoc 10 ENL)) 
     r (cdr (assoc 40 ENL)) 
      ) 
      (setq LST (cons (list EN PT10 r) LST)) 
      (setq I (1+ I)) 
    ) 
    ;;逐个对比      
    (while LST 
      ;;取首个          
      (setq A 
         (car LST) 
     LST (cdr LST) 
      ) 
      ;;对比            
      (setq LST_NEW '()) 
      (foreach N LST 
        (if 
   (and (equal (cadr A) (cadr N) 0.001) 
        (equal (caddr A) (caddr N) 0.001) 
   ) 
    (entdel (car N)) ;_删除实体    
    (setq LST_NEW (cons N LST_NEW)) 
        ) 
      ) 
      ;;    (setq LST LST_NEW)     ) ) ) 
      (princ) 
    ) 
    ) 
  ) 
)

skynoon · 发表于 2011-12-19 20:37:41

建议你找一个《LISP函数参考2008中文版.chm》对照着看一下各个函数，这样才能学的更透彻

dunkel · 发表于 2011-12-20 08:51:01

程序设计方面的，最好是到“开发板块”去。另外，有什么疑问，最好能明确些；不明白的，是哪里不明白。

PhantomFox · 发表于 2011-12-20 09:55:14

本帖最后由 PhantomFox 于 2011-12-20 09:59 编辑

skynoon 发表于 2011-12-19 20:37
建议你找一个《LISP函数参考2008中文版.chm》对照着看一下各个函数，这样才能学的更透彻

已经对着函数看过了，里面有几个地方不明白。

比如说这几句
(if (setq SS (ssget '((0 . "CIRCLE"))))

(setq LST '()
I 0
)
PT10 (cdr (assoc 10 ENL))
r (cdr (assoc 40 ENL))
)
(setq LST (cons (list EN PT10 r) LST))
(foreach N LST
(if
(and (equal (cadr A) (cadr N) 0.001)
(equal (caddr A) (caddr N) 0.001)
)
(entdel (car N)) ;_删除实体
(setq LST_NEW (cons N LST_NEW))
)
)
;; (setq LST LST_NEW) ) ) )

还不是很明白！！！能讲解下吗？

qq229918602 · 发表于 2011-12-20 20:17:44

我现在学习也是一条条地查。

skynoon · 发表于 2011-12-20 21:36:07

1,建立空表，对I赋值0 4，ENL的10组码坐标赋值给PT10（在此是圆心坐标） 5 ENL的40组码,赋值给r(在此是半径) 7 建立表 8之后对表的每一个元素循环

PhantomFox · 发表于 2011-12-21 09:37:36

skynoon 发表于 2011-12-20 21:36
1,建立空表，对I赋值0 4，ENL的10组码坐标赋值给PT10（在此是圆心坐标） 5 ENL的40组码,赋值给r(在此是半 ...

基本清楚了，感谢！

lixuedong · 发表于 2011-12-30 13:08:10

你拿到cad里，一条一条的执行，很快就明白了

PhantomFox · 发表于 2011-12-30 16:13:54

lixuedong 发表于 2011-12-30 13:08
你拿到cad里，一条一条的执行，很快就明白了

谢谢指导！

账号		自动登录	找回密码
密码			注册

[求助] 能帮忙详细分析下次源程序吗?

相关帖子