2013-05-23 明经 AutoLISP 编程②群(177027547) 群聊记录：(defun c:test (/ ss nss en ent cnt s

明经快报

创雅 08:57:50

(defun c:test (/ ss nss en ent cnt st1 st2 )
 (setq ss1 (ssadd))
  (if (setq ss (ssget '((0 . "CIRCLE"))))
    (progn
      (repeat (setq nss (sslength ss))
        (setq en  (ssname ss (setq nss (1- nss)))
              ent (entget en)
              cnt (cdr (assoc 10 ent))
              r      (vl-catch-all-apply
                    '(lambda ()
                       (foreach    p st1
                         (if (equal cnt p 1e-6)
                           (exit)
                         )
                       )
                     )
                  )
        )
        (if    (not (vl-catch-all-error-p r))
                (setq    st1 (cons cnt st1)
                st2 (cons (cdr (assoc 10 ent)) st2))
                (ssadd en ss1)
        )
      )
    )

  )
(alert (strcat "已删除" (rtos (- (sslength ss1) nss))"个同心圆"))
(reverse st2)
  
)

明经快报

创雅 09:09:14

第一遍不好看嘛

明经快报

[梦里水香] 10:02:06

(defun c:test()
(setvar "cmdecho" 0)
(setq ds (getdist " 弯头直径:"))
(setq s0 (getdist " 筒体壁厚:"))
(setq p0 (getpoint " 基点:"))
(setq a (getangle p0 " 方向:"))
(setq a1( + a pi))
(setq p1( polar p0 a (* ds 1.5) ))
(setq p2( polar p1 a1 (/ ds 2) ))
(setq p3( polar p2 a1 s0 ))
(setq p5( polar p2 a1 ds ))
(setq p4( polar p5 a s0 ))
(command "arc" "c" p1 p2 "a" 90 "")
(command "arc" "c" p1 p3 "a" 90 "")
(command "arc" "c" p1 p5 "a" 90 "")
(command "arc" "c" p1 p4 "a" 90 "")
(setvar "cmdecho" 1)
(princ)

[pzweng]天蝎 10:04:59

捕捉的问题吧

[梦里水香] 10:08:18

可是函数里面不是有把捕捉关掉的嘛

[pzweng]天蝎 10:08:37

没有

[梦里水香] 10:08:55

(setvar "cmdecho" 0)这个不是嘛

[pzweng]天蝎 10:12:53

不是的

[hhbhyt] 10:17:57

(command "osmode" "1024")

明经快报

[梦里水香] 10:31:53

明白了。。。谢谢

找软件高手 10:32:28

vlx文件加载 需要Microsoft Visual Studio Version Selector吗

我的vlx文件为什么无法加载

[xch_27]落叶 10:33:29

请问个问题，为什么在块编辑里量的长度是1，插到图里再量就变成600了？

明经快报

[Angel_wings_丶]Angel wings 丶﹏ 11:12:33

在visual lisp中使用activex对象 好复杂感觉

明经快报

[yx5277]有来有去 13:05:19

atrxw

   

高薪掌妇W上/自家業余兼職工資單結到賬s

崗位要求x1.要求熟悉網上的交易流程，過程比較簡單。工資現結 實現共贏x

2.我們提供客戶，工作幾小時由你安排， 收入多少按件取，多勞多得，輕松工作d

3.必須能夠方便上網，計件工資，多勞多得，有網銀/支付寶者優先錄用t

鄭重聲明；本招聘絕不收取任何押金等一切費用！凡是收取任何費用均為騙子f

4.請放心來應聘。符合條件者請加QQ:190101868 詳談，我們期待您的加入!

明经快报

[Angel1995][Angel1995]Angel 16:52:00

请教大神们一个问题:
在一个图档有很多个AA文本,

大小一样，只是颜色不一样

如果统计并进行标记

就是在所有颜色一样的AA  的右上角标记一个序号1
就是在所有颜色一样的AA  的右上角标记一个序号2