2013-04-30 明经 AutoLISP 编程(102918348) 群聊记录：告诉下要怎么搞

明经快报

[龙吟小调] 00:01:11

告诉下要怎么搞

[weiqi]weiqi 00:10:13

[qqimg]oldimg/{7C8ABFE4-5399-A8A4-0E94-DD59778C42EA}.jpg[/qqimg]

明经快报

[仑通]仑通 15:08:05

(defun wr_l (pt2 / );根据字高写线
 (setq l_t 1000 
       th  450 
       th_j (+ th 150)
       th_c 150
 ) 
(setq sx (sslenght lst))
;计算线的长度
 (if  (= sx 1) (setq t_l (+ l_t (* 1 th) th_c (* 0 th_j)))
 (if  (= sx 2) (setq t_l (+ l_t (* 2 th) th_c (* 1 th_j)))
 (if  (= sx 3) (setq t_l (+ l_t (* 3 th) th_c (* 2 th_j)))
 (if  (= sx 4) (setq t_l (+ l_t (* 4 th) th_c (* 3 th_j)))
 (setq pt_p (polar pt2 ang_l t_l)
 (command "line" pt2 pt_p "")
 (princ)
)

(defun dist (pt2 / );判断起始点

 (setq pt_t (dxf 10 en) 
      pt1 (dxf 10 en) 
      pt2 (dxf 11 en)
 )
  (setq dis_1 (distance pt_t pt1)
      dis_2  (distance pt_t pt2)
   )
 (if (> dis_1 dis_2) 
    (setq pt_s pt1 ) (setq pt_s pt2)
  )
 (princ)
)

[仑通]仑通 15:09:39

(if  (= sx 1) (setq t_l (+ l_t (* 1 th) th_c (* 0 th_j)))
 (if  (= sx 2) (setq t_l (+ l_t (* 2 th) th_c (* 1 th_j)))
 (if  (= sx 3) (setq t_l (+ l_t (* 3 th) th_c (* 2 th_j)))
 (if  (= sx 4) (setq t_l (+ l_t (* 4 th) th_c (* 3 th_j)))谁把我这段简化为 lambda形式

[仑通]仑通 15:12:12

mapcar" ( lambda(x) (setq tl (+ l_t (* x th) th_c (* (- x 1) th_j)))

?????

[仑通]仑通 15:13:19

mapcar"(lambda(x) (setq t_l ((+ l_t (* x th) th_c (* (- x 1) th_j))))

[雨的节奏][雨的节奏] 15:14:26

[qqimg]oldimg/{43F78691-C43F-4CC5-4AB6-6CCA1EBF18B4}.GIF[/qqimg]

[仑通]仑通 15:18:12

(defun dist (ent en / );判断起始点

 (setq pt_t (dxf 10 ent) 
      pt1 (dxf 10 en) 
      pt2 (dxf 11 en)
 )
  (setq dis_1 (distance pt_t pt1)
      dis_2  (distance pt_t pt2)
   )
 (if (> dis_1 dis_2) 
    (setq pt_s pt1 ) (setq pt_s pt2)
  )
 (princ)
)

[仑通]仑通 15:19:26

[qq1241274614] 15:20:03

点击一下，谢谢。http://www.seowhy.com/bbs/?fromuid=121736
http://www.szrocer.com/ 张拉膜 权重>=1的正规钢构类网站链接！不对等勿扰！

[仑通]仑通 15:21:47

明经快报

[仑通]仑通 15:48:34

有没选择集按照关键字排序的

[fsxm]飞诗 15:53:32

[仑通]仑通 15:56:04

[野狼谷]笨鸟 15:57:38

求助：除了cons append list 可以实现表的追加，还有没有别的函数？目前这几个在向某lst 列表里面追加都不方便，主要原因是括号层级问题。
 当我用reverse时，有时候连子括号里面的顺序也颠倒了

明经快报

[weiqi]weiqi 16:11:12

有懂EXCEL的么？。

[weiqi]weiqi 16:11:57

[qqimg]oldimg/{265C421D-9A22-3F47-E66F-56DEEB270257}.jpg[/qqimg]查找 第一个大于4.8的数，得怎么个写法？

[tiyi8888]永远痛 16:11:59

我懂

[tiyi8888]永远痛 16:13:43

==

[weiqi]weiqi 16:14:49

(MATCH("√",F:F,0))我有个办法。先写个 旁边一行
大于的打勾。。。然后再用MATCH找第一个打勾的。。

[weiqi]weiqi 16:17:34

[qqimg]oldimg/{5FE469D9-256A-084D-679E-D8F33A85A117}.jpg[/qqimg]

=IF(A1

=INDEX(A:A,(MATCH("√",B:B,0)),1)

有木有其他方法 ？~

[VBALISPER]恐龙 16:19:06

把两列公式组合在一起.

[weiqi]weiqi 16:20:16

=INDEX(A:A,(MATCH((IF(A1

[weiqi]weiqi 16:20:51

[qqimg]oldimg/{FFAB8876-EC25-A7ED-1229-FF7D1D4ACFCB}.jpg[/qqimg]

[weiqi]weiqi 16:21:58

=INDEX(A:A,(MATCH(A:A

也不行~。

明经快报

[weiqi]weiqi 16:49:08

[qqimg]oldimg/{7DD75482-58F2-373C-EB1D-50F213F2D482}.jpg[/qqimg]

明经快报

[vormittag]桔子 18:06:01

vlookup

[caoyin][caoyin] 18:07:21

[qqimg]oldimg/{67A8BB52-AF4F-62EA-45C1-A3BECEF1FF3B}.gif[/qqimg]

[vormittag]桔子 18:09:54

义和团大师兄。

[caoyin][caoyin] 18:14:19

好像是阿拉伯服饰

[caoyin][caoyin] 18:15:04

小金的发型的确NB

[vormittag]桔子 18:15:07

[qqimg]oldimg/{1EF9FE7D-5A21-6992-56C1-691F7130ED3E}.jpg[/qqimg]

[weiqi]weiqi 18:15:33

vlookup 条件项得用 第一项~~~。貌似不怎么好用~。

[weiqi]weiqi 18:16:03

不搞了，多列一列就多列一列~

[caoyin][caoyin] 18:16:36

[qqimg]oldimg/{7FE1DAD0-ED70-65AF-33C5-F4BE7458AD26}.jpg[/qqimg]

[vormittag]桔子 18:16:40

hlookup，vlookup都很好用。

[caoyin][caoyin] 18:16:44

[vormittag]桔子 18:17:00

手工画的金三胖？

[caoyin][caoyin] 18:17:10

[tzan8752]小明 18:22:56

[qqimg]oldimg/{E539F9E1-383A-9DEC-B132-C6DA8E3D66FD}.jpg[/qqimg]

怎么个情况   币收了  下载不了

[tzan8752]小明 18:24:34

我也是小明

[tzan8752]小明 18:25:19

[tzan8752]小明 18:25:51

这怎么回事
、

明经快报

[仑通]仑通 19:05:52

(defun c:tt ()
(setq ss (ssget "X" '((0 . "LINE") (8 . "S_BEAMDIMMASS"))))
(ssget->list ss)
(princ)
)

(defun ssget->list (ss / i ename );选择集转表
 (setq i -1)
  (while (setq ename (ssname ss (setq i (1+ i))))
    (setq lst (cons  ename lst))
 )
 lst
)



(defun dxf (n data) (cdr (assoc n data))) 

(defun endxf (dxf en) (cdr (assoc dxf (entget en))))


(defun dist (ent en / );判断起始点

 (setq pt_t (dxf 10 ent) 
       pt1 (dxf 10 en) 
       pt2 (dxf 11 en)
  )
  (setq dis_1 (distance pt_t pt1)
      dis_2  (distance pt_t pt2)
   )
 (if (> dis_1 dis_2) 
    (setq pt_s pt1 ) (setq pt_s pt2)
  )
 (princ)
)

(defun wr_l (pt2 / );根据字高写线
 (setq l_t 1000 
       th  450 lar t_pt (+ t_ang (/ pi 2)) (/ t_h 2))
                (polar (polar t_pt (+ t_ang (/ pi 2)) (/ t_h 2))
                   t_ang
                   1000000
            ) ;_ 结束polar
          )
) ;_ 结束SETQ
(setq ss (ssget "F"
                 LST
                (LIST (CONS 8 (get_Code 8 en)))
         ) ;_ 结束ssget
) ;_ 结束setq





       th_j (+ th 150)
       th_c 150
 ) 
(setq sx (sslenght lst))
;计算线的长度
 (if  (= sx 1) (setq t_l (+ l_t (* 1 th) th_c (* 0 th_j)))
 (if  (= sx 2) (setq t_l (+ l_t (* 2 th) th_c (* 1 th_j)))
 (if  (= sx 3) (setq t_l (+ l_t (* 3 th) th_c (* 2 th_j)))
 (if  (= sx 4) (setq t_l (+ l_t (* 4 th) th_c (* 3 th_j)))
 (setq pt_p (polar pt2 ang_l t_l)
 (command "line" pt2 pt_p "")
 (princ)
)

;;;直线附近文字
;;; 
  (defun get_Code (Group_Code en /)
  (cdr (assoc Group_Code (entget en)))
  ) ;_ 结束defun获取对象类型
(setq en (car (entsel)))
(setq
  t_pt        (get_Code 10 en)
  t_h         (get_Code 40 en)
  t_ang       (get_Code 50 en)
) ;_ 结束setq
(SETQ LST (list (po

明经快报

[仑通]仑通 19:15:57

实现一个功能

【7299969】人生 19:16:07

什么功能

[仑通]仑通 19:16:57

要给你说清楚 太罗嗦 看贴 http://bbs.mjtd.com/thread-101142-1-1.html

还没实现 关键代码段 有了

【7299969】人生 19:18:20

收费

明经快报

[xiabin68]测绘 20:36:28

请教大家一个问题，有时候在用VLAX这些函数时老是提示错误，请问是怎么会事呢，有些时候又能用，，，我用了(VL-LOAD-CMD)的，，

[xiabin68]测绘 20:37:02

请教大家一个问题，有时候在用VLAX这些函数时老是提示错误，请问是怎么会事呢，有些时候又能用，，，我用了(VL-LOAD-CMD)的，，

[gzxl] 20:37:10

[gzxl] 20:37:46

[xiabin68]测绘 20:40:14

这机器人比10086的还牛啊

[weiqi]weiqi 20:44:24

[tzan8752]小明(27959284)  18:25:29
#[qqimg]oldimg/{E539F9E1-383A-9DEC-B132-C6DA8E3D66FD}.jpg[/qqimg]
#群里好多基友，小明要小心

[286168051]勤龙 20:45:24

FAS 2 LISP

FAS2LISP

[xiabin68]测绘 20:45:36

什么意思，

[286168051]勤龙 20:45:44

据说FAS被反编译了 真的假的

[xiabin68]测绘 20:45:52

真的，，

只是少数人知道，

[286168051]勤龙 20:45:59

是吗

[xiabin68]测绘 20:46:13

现在没有事都在找小明快报耍了

[286168051]勤龙 20:46:15

那VLX也不是安全的了啊

[xiabin68]测绘 20:49:54

因该哦，至少CAD公司是随便都可以看了三，

[蔡__洛]不快乐 20:54:13

和实际的路径不一样呢？

[xiabin68]测绘 20:55:10

它可能不是万能的吧，，

[蔡__洛]不快乐 20:59:21

小明 在群里面真是个祸害

[xiabin68]测绘 21:00:53

就是啊，都跑去跟它耍了，

[qqimg]oldimg/{464123FC-F5DA-B70B-0B0A-999072578D71}.jpg[/qqimg]

连烤肉都要问它了，

[ucuc2003][ucuc2003]易水 21:03:42

这个机器人话好多啊

明经快报

[weiqi]weiqi 21:50:22

这小子不认识明总了。

这怎么搞

[1993063] 21:51:16

[仑通]仑通 21:52:05

就如同在尔虞我诈的职场上所谓的白领一样。

[286168051]勤龙 21:52:09

大家说点正经的好吗

[仑通]仑通 21:52:36

[286168051]勤龙 21:52:52

你们说点关于我们群的东西

[q530496591][q530496591]小菜鸟 21:53:03

还没有开发出来吧

[286168051]勤龙 21:54:04

。。。。。。

[286168051]勤龙 21:55:05

么么么么么么么

[xiabin68]测绘 21:55:47

这个都问出来了，

[仑通]仑通 21:56:03

[vormittag]桔子 21:56:09

[xiabin68]测绘 21:56:18

这回答

[tiyi8888]永远痛 21:58:27

LISP是AutoCAD的屌丝专用二次开发语言，烦人的括号是屌丝们

[q530496591][q530496591]小菜鸟 21:58:48

..没事做了就来群里设戏小明

死机了小时

[xiabin68]测绘 21:58:58

就是啊，，

[q530496591][q530496591]小菜鸟 21:58:58

明

[xiabin68]测绘 21:59:20

我估计，一起发，要把小明整晕，，

[q530496591][q530496591]小菜鸟 21:59:37

呵呵

[q530496591][q530496591]小菜鸟 22:00:11

不回答你

一次一人只能问一个问题

[q530496591][q530496591]小菜鸟 22:01:20

...

[q530496591][q530496591]小菜鸟 22:02:49

不准

易水..呵呵