明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1184|回复: 7

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

 关闭 [复制链接]
发表于 2013-5-23 08:57:50 | 显示全部楼层 |阅读模式
创雅 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)
  
)
 楼主| 发表于 2013-5-23 09:09:14 | 显示全部楼层
创雅 09:09:14
第一遍不好看嘛
 楼主| 发表于 2013-5-23 10:02:06 | 显示全部楼层
[梦里水香] 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")
 楼主| 发表于 2013-5-23 10:31:53 | 显示全部楼层
[梦里水香] 10:31:53
明白了。。。谢谢
找软件高手 10:32:28
vlx文件加载 需要Microsoft Visual Studio Version Selector吗
我的vlx文件为什么无法加载
[xch_27]落叶 10:33:29
请问个问题,为什么在块编辑里量的长度是1,插到图里再量就变成600了?
 楼主| 发表于 2013-5-23 11:12:33 | 显示全部楼层
[Angel_wings_丶]Angel wings 丶﹏ 11:12:33
在visual lisp中使用activex对象 好复杂感觉
 楼主| 发表于 2013-5-23 13:05:19 | 显示全部楼层
[yx5277]有来有去 13:05:19
atrxw
   
高薪掌妇W上/自家業余兼職工資單結到賬s
崗位要求x1.要求熟悉網上的交易流程,過程比較簡單。工資現結 實現共贏x
2.我們提供客戶,工作幾小時由你安排, 收入多少按件取,多勞多得,輕松工作d
3.必須能夠方便上網,計件工資,多勞多得,有網銀/支付寶者優先錄用t
鄭重聲明;本招聘絕不收取任何押金等一切費用!凡是收取任何費用均為騙子f
4.請放心來應聘。符合條件者請加QQ:190101868 詳談,我們期待您的加入!
 楼主| 发表于 2013-5-23 16:52:00 | 显示全部楼层
[Angel1995][Angel1995]Angel 16:52:00
请教大神们一个问题:
在一个图档有很多个AA文本,

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

如果统计并进行标记

就是在所有颜色一样的AA  的右上角标记一个序号1
就是在所有颜色一样的AA  的右上角标记一个序号2
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-23 18:24 , Processed in 0.185202 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表