2013-07-05 明经 AutoLISP 编程(102918348) 群聊记录：请问一下各位高手，那个AUTO lisp插件可以解密不

明经快报

[无痕]午夜咖啡 20:41:28

caoyin是超人？

[vormittag]桔子 20:44:35

请用东北话念。

明经快报

[ZZXXQQ] 21:01:01

明经快报

[金光]金光小子 21:27:43

'())
 (mapcar '(lambda(x) (if (= (car x) 10)(setq pts (cons (cdr x) pts)))) (entget ent))
 (reverse pts)
 ;(trans pts 0 1)
 ;(ucs)
 (setq sss1 (ssget "WP" pts '((0 . "*line") (8 . "beam,edote"))))
);progn
(princ)
)

;选择框外图元删除
(defun c:cc( / sss sss1 sss2)
  (if (setq sss (ssget '((0 . "*line") (8 . "beam,edote"))))
    (progn (box-get-ss)
       (command "_.select" sss "remove" sss1 "")
       (setq sss2 (ssget "p"))
           (command "erase" sss2 "")
    )
  )
(princ)
)

;用多边形去选择多边形中图元
(defun box-get-ss ()
(vl-load-com)
(setq s_lst (ssget "X" '((0 . "LWPOLYLINE") (8 . "brline"))))
 (if s_lst
   (progn
     (setq n_lst '(lambda  (x) (= (type x) 'ENAME)))
     (vl-remove-if-not n_lst (mapcar 'cadr (ssnamex s_lst)))
   )
 )
(foreach exx n_lst
     (setq ent (entget(car exx)))
     (= (cdr(assoc 0 ent)) "LWPOLYLINE")
     (= (cdr(assoc 70 ent)) 1)
) 
(progn
 (setq pts

明经快报

[无痕]午夜咖啡 22:31:44

[qqimg]201307/{161EDFA2-321F-A2E2-0664-E0CD4A3E3C18}.jpg[/qqimg]

大家猜猜看是什么？

[LC100]建筑设计 22:32:25

色情瓜

[csc123456]顽强 22:32:29

乳房

[LC100]建筑设计 22:32:34

或者叫奶瓜

[csc123456]顽强 22:32:49

说学名

[LC100]建筑设计 22:33:02

学名就是  瓜

[csc123456]顽强 22:33:27

54坐标转为80坐标，移动多少呀

[LC100]建筑设计 22:33:46

什么是54坐标？

[caoyin][caoyin] 22:33:46

无痕兄玩自拍啊

[csc123456]顽强 22:33:47

哪位老兄知道的教一下

[VBALISPER]恐龙 22:34:12

给你一个程序

[LC100]建筑设计 22:34:13

我想知道lisp中能不能调用宏。

[vormittag]桔子 22:34:29

很复杂的计算，不是简单平移就行的。

[caoyin][caoyin] 22:34:38

LC100，今天找你的

[236004]张牙舞爪 22:34:40

要转换参数，

[caoyin][caoyin] 22:34:53

明天帮我转换一个天正格式的文件好吗

[LC100]建筑设计 22:34:54

你找我干什么

现在都可以啊

发来罗

[csc123456]顽强 22:35:08

需要旋转吗

[caoyin][caoyin] 22:35:14

现在文件不在

[LC100]建筑设计 22:35:22

哦

[caoyin][caoyin] 22:35:31

先谢了

[LC100]建筑设计 22:35:44

不用。明天发到我邮箱

[VBALISPER]恐龙 22:35:54

哦.我发错了,那个不能54转80.是相同坐标系下的转换.

[caoyin][caoyin] 22:36:08

好的

[LC100]建筑设计 22:36:13

list调用宏，有谁会

其实我就要宏中的  暂停这个功能非list中的pause

[VBALISPER]恐龙 22:36:53

vba-run

[LC100]建筑设计 22:37:09

这个我知道

[LC100]建筑设计 22:40:19

[qqimg]201307/{522D51F7-97A5-2BE0-A1B7-394EB5205467}.jpg[/qqimg]

^C^C_copyclip 

这句话的宏怎么写成一个文件

[LC100]建筑设计 22:41:24

看宏的帮助，他说可以直接用。

[无痕]午夜咖啡 22:46:07

[qqimg]201307/{0FF1215C-6A1D-9FF7-1915-D4F6910285F2}.gif[/qqimg]

明经快报

[VBALISPER]恐龙 23:56:20

搜索或下载电影的网址谁能给一下.