ndian 发表于 2004-4-12 23:03:00

急！你能改进一些lisp吗？

急！你能改进一些lisp吗？


在编图中 我都是以“块”的方式插入，例如 陡坎的牙齿方向的问题，我用下面LISP只能改变一条直线（AB-》


BA），不能改变块的方向啊       希望 大虾能改进一下！！急啊


qq:42808710


下面lisp是实现了: 直线AB ---->直线BA


(defun c:changeline ()<BR>                                                                                       <BR>                                                                       (setq ent (car (entsel)) )                                                                                                                       ;car 取出序列的第一个元素<BR>                                                                       (setq ents (entget ent))                                                                                                                                               ;entget 取出对象的数据序列<BR>                                                                       (setq dxf10 (cdr (assoc 10 ents)))                                                               ;cdr 取出点对序列的第二元素，<BR>                                                                                                                                                                                                                                                                                                                                                                                                                               ;或一般序列第一元素除外的子序列<BR>                                                                       (setq<BR>                                                                               ents (subst (cons 10 (cdr (assoc 11 ents))) (assoc 10 ents) ents)<BR>                                                                       )<BR>                       <BR>                                                               ;<BR>                                                               ; subset 函数置换序列变量的数据项。或用cons函数加入新的数据项。 <BR>                                                               ; cons       函数组合出新的数据项，或是用assoc函数从别的对象数据序列中取出新的数据项<BR>                                                               ; assoc 函数取出要修改的数据项，并判断该项目是否存在                                                                                       <BR>                                                               ;<BR>                                                               (setq ents (subst (cons 11 dxf10) (assoc 11 ents) ents))       ; dxf10       是一个变量<BR>        <BR>                                       


                       (entmod ents)                               ;entmod 函数更新该对象                                                                                                                                                                                                                       <BR>                       (princ)

NetBee 发表于 2004-5-3 22:12:00

天！


你用块来作线型？<BR>佩服!!!!


<BR>你可以用线形定义呀！<BR>你可以下载一个CASS安装后看看它的线型定义

myfreemind 发表于 2004-5-4 16:01:00

用线形来定义，然后老大有一个程序是掉转线方向的！

wb0815 发表于 2004-5-22 14:20:00

服了


还有用块来做线形的


有写程序的时间早就给线形做好了
页: [1]
查看完整版本: 急！你能改进一些lisp吗？