2013-05-29 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

CCarch

One Is All(12486872)于2013-05-29 16-02-48：
好嘞。马上绑下

清风明月10

清风明月(897902105)于2013-05-29 16-08-42：
请问，这样写过滤不对吗？
;;来源：求快速删除图元-AutoLISP/Visual LISP 编程技术-AutoCAD论坛-明经CAD社区-快速,程序 - Powered by Discuz!
;http://bbs.mjtd.com/thread-92747-1-1.html
;(if (setq ss (ssget '((0 . "*MTEXT,text,leader,DIMENSION")))) 句中，"*MTEXT,text,leader,DIMENSION"为数种图元的名称

(defun c:TT ( / ss) ;只炸开理正图元"CCOMPLEXTEXT,CPMTEXTCDBPMZK,CDBDMX,CGTEXT,GLZTEXT"，
;;;qaflags这个系统变量一般为0，但如果为零一次就只能炸开一个图元，为1则可以炸开所以选定的图元。但它还有其它作用，所以最好设回0
(setvar "qaflags" 1)
(if (setq ss (ssget "X" '((0 . "TEXT")(8 . "GiCAD_PouMian")

(-4 . “

cswswq2009

风中的承诺也许会随风飘去(181314507)于2013-05-29 16-13-57：
[face3.gif]

CCarch

飘(157355446)于2013-05-29 16-19-51：
签到

CCarch

One Is All(12486872)于2013-05-29 16-31-03：
老大是不是改过论坛的什么，才搞的我们出现这种问题？

CCarch

One Is All(12486872)于2013-05-29 16-31-03：
在哪绑？

炫翔

炫翔(2363673534)于2013-05-29 18-47-52：
;返回相应元素的索引位置,第一个元素的列表
;基地0,或零如果不见了
;;;   (pos x '(a b c)) -> nil, (pos b '(a b c d)) -> 1
(defun position (x lst / ret)
  (if (not (zerop (setq ret (length (member x lst)))))
    (- (length lst) ret)
  )
)

CCarch

苦咖啡(1194089433)于2013-05-29 19-10-41：
[qqimg]{82CD8B76-E49B-87D1-77B7-75CC840FD204}.GIF[/qqimg]

CCarch

简单(252113063)于2013-05-29 19-11-28：
签到

CCarch

简单(252113063)于2013-05-29 19-11-43：
谁能救救我啊

炫翔

炫翔(2363673534)于2013-05-29 19-12-08：
论坛

CCarch

张牙舞爪(13885696)于2013-05-29 19-13-11：
签到

eachy

eachy(124471899)于2013-05-29 19-14-21：
vl-position 返回什么

CCarch

One Is All(12486872)于2013-05-29 19-15-19：
签到

zml84

ZML84(389280742)于2013-05-29 19-15-56：
签到