（完成）[编程申请]：求一个LSP,计算块数量

曼漫 · 发表于 2004-1-11 16:32:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我已经在LSP编程那里发了一个帖子，现在才看到这个板块。原来已经有一位网友帮我写了一个了，现在希望斑竹能帮我看看怎么调整。
http://www.xdcad.net/forum/showthread.php?threadid=135393

myfreemind · 发表于 2004-1-11 17:06:20

用VB写的要吗？

曼漫 · 发表于 2004-1-11 18:16:16

很惭愧，我不懂VB写的怎么使用。不过如果能够便捷的使用的话我想都可以的吧

playboy · 发表于 2004-1-12 08:47:27

(defun c:test ( / blo blolen)
(setq blo (ssget "X" (list (CONS 0 "insert"))))
(setq blolen  (sslength blo) )
(setq blolen (itoa blolen))
      (alert (strcat "本图共有" blolen  "个块" ))
         )

曼漫 · 发表于 2004-1-12 09:03:02

不是一下子计算是多少个块。希望是能在框选范围，然后范围内的块能根据块名来计算，并能在图内产生一个表之类的东西，便于我对照使用。这样便不会弄错数量了

coolzhb · 发表于 2004-1-12 10:06:24

最初由曼漫发布
[B]不是一下子计算是多少个块。希望是能在框选范围，然后范围内的块能根据块名来计算，并能在图内产生一个表之类的东西，便于我对照使用。这样便不会弄错数量了 [/B]

你使用我的文字修改大师中的图块统计试试，可以生成表格和文件输出！

coolzhb · 发表于 2004-1-12 14:26:13

最初由曼漫发布
[B]哪里？我找不到 [/B]

点击我帖子下面的个性签名中的链接即可！

曼漫 · 发表于 2004-1-12 14:46:15

嗯，我试用了。就是要那样子的。。
不过还是这么一个问题：框选范围之后，有些东西是刚好在线框上的（我不想要的东西，也就是块踏线了），它都一并计算了。因为我的树种是放置并不是那么有规律的。这样能不能改善一下。。另外，真是谢谢你啊

eachy · 发表于 2004-1-12 18:38:55

[php]
;| Written By Eachy 2004.1.12
功能: 图块数量统计;;
说明: 根据点取的典型图块统计, 可以多选 ;;
本程序需配合 xdrx_api 使用, 意见和建议请访问
[url]http://www.xdcad.net/form[/url]
|;
(defun c:XDTB_BlkNum (/ blk blkl e el filter l1 l2 ll1 ln lst pt sblkl ss tf x)
(xdrx_begin)
(xdrx_sysvar_push "osmode")
(setq tf t)
(while (setq e (xdrx_entsel
(if tf
"\n拾取要统计图块<回车全选>:"
"\n拾取要统计图块<结束>"
)
'((0 . "insert"))
)
)
(setq tf nil)
(setq blk (xdrx_getentdxf 2))
(if (not (member blk blkl))
(progn
(setq blkl (cons blk blkl))
(redraw (car e) 3)
(setq el (cons (car e) el))
;;(xdrx_Pickset_Redraw (ssget "x" (list (cons 2 blk))))
(prompt (strcat "\n选中了 ""
(setq sBlkl (xdrx_String_Join
(reverse blkl)
","
)
)
"" 块!"
)
)
)
(princ (strcat "\n已选中 " blk " 块!"))
)
)
(if blkl
(setq filter (append '((0 . "insert") (-4 . "<or"))
(mapcar '(lambda (x) (cons 2 x))
blkl
)
'((-4 . "or>"))
)
)
(setq filter '((0 . "insert")))
)
(princ "\n拾取统计范围[All - 全选].....")
(if (setq ss (ssget filter))
(progn
(xdrx_setsstodb ss 0)
(while (xdrx_getentdata 0)
(setq ln (xdrx_getentdxf 2))
(if (not l1)
(setq l1 (list (list ln)))
)
(setq l2 l1)
(while (and (setq ll1 (car l2))
(/= ln (car ll1))
)
(setq l2 (cdr l2))
)
(setq
l1 (if ll1
(subst (append ll1 (list ln)) ll1 l1)
(cons (list ln) l1)
)
)
)
(setq pt (getpoint "\n输出点<回车显示>: "))
(if l1
(progn
(setq
lst (mapcar '(lambda (x) (list (car x) (itoa (length x))))
l1
)
)
(if pt
(progn
(command ".text"
pt
"3"
"0"
(strcat "Block" " " "Number")
)
(setq
pt (polar pt (* 1.5 pi) (* 2.0 (getvar "textsize")))
)
(mapcar '(lambda (x)
(command ".text"
pt
"3"
"0"
(strcat (car x) " " (cadr x))
)
(setq pt
(polar pt (* 1.5 pi) (* 2.0 (getvar "textsize")))
)
)
lst
)
)
(princ lst)
)
)
)
(foreach n el
(redraw n 4)
)
;;(xdrx_Pickset_Redraw (ssget "x" (list (cons 2 sBlkl))) t)
)
)
(xdrx_sysvar_pop)
(xdrx_end)
(princ)
)[/php]

[php] 
;|   Written By Eachy 2004.1.12 
功能: 图块数量统计;; 
 
说明: 根据点取的典型图块统计, 可以多选 ;; 
 
      本程序需配合 xdrx_api 使用, 意见和建议请访问 
      [url]http://www.xdcad.net/form[/url] 
|; 
(defun c:XDTB_BlkNum  (/ blk blkl e el filter l1 l2 ll1 ln lst pt sblkl ss tf x) 
  (xdrx_begin) 
  (xdrx_sysvar_push "osmode") 
  (setq tf t) 
  (while (setq e (xdrx_entsel 
                   (if tf 
                     "\n拾取要统计图块<回车全选>:" 
                     "\n拾取要统计图块<结束>" 
                   ) 
                   '((0 . "insert")) 
                 ) 
         ) 
    (setq tf nil) 
    (setq blk (xdrx_getentdxf 2)) 
    (if        (not (member blk blkl)) 
      (progn 
        (setq blkl (cons blk blkl)) 
        (redraw (car e) 3) 
        (setq el (cons (car e) el)) 
        ;;(xdrx_Pickset_Redraw (ssget "x" (list (cons 2 blk)))) 
        (prompt        (strcat        "\n选中了 "" 
                        (setq sBlkl (xdrx_String_Join 
                                      (reverse blkl) 
                                      "," 
                                    ) 
                        ) 
                        "" 块!" 
                ) 
        ) 
      ) 
      (princ (strcat "\n已选中 " blk " 块!")) 
    ) 
  ) 
  (if blkl 
    (setq filter (append '((0 . "insert") (-4 . "<or")) 
                         (mapcar '(lambda (x) (cons 2 x)) 
                                 blkl 
                         ) 
                         '((-4 . "or>")) 
                 ) 
    ) 
    (setq filter '((0 . "insert"))) 
  ) 
  (princ "\n拾取统计范围[All - 全选].....") 
  (if (setq ss (ssget filter)) 
    (progn 
      (xdrx_setsstodb ss 0) 
      (while (xdrx_getentdata 0) 
        (setq ln (xdrx_getentdxf 2)) 
        (if (not l1) 
          (setq l1 (list (list ln))) 
        ) 
        (setq l2 l1) 
        (while (and (setq ll1 (car l2)) 
                    (/= ln (car ll1)) 
               ) 
          (setq l2 (cdr l2)) 
        ) 
        (setq 
          l1 (if ll1 
               (subst (append ll1 (list ln)) ll1 l1) 
               (cons (list ln) l1) 
             ) 
        ) 
      ) 
      (setq pt (getpoint "\n输出点<回车显示>: ")) 
      (if l1 
        (progn 
          (setq 
            lst        (mapcar        '(lambda (x) (list (car x) (itoa (length x)))) 
                        l1 
                ) 
          ) 
          (if pt 
            (progn 
              (command ".text" 
                       pt 
                       "3" 
                       "0" 
                       (strcat "Block" "      " "Number") 
              ) 
              (setq 
                pt (polar pt (* 1.5 pi) (* 2.0 (getvar "textsize"))) 
              ) 
              (mapcar '(lambda (x) 
                         (command ".text" 
                                  pt 
                                  "3" 
                                  "0" 
                                  (strcat (car x) "       " (cadr x)) 
                         ) 
                         (setq pt 
                                (polar pt (* 1.5 pi) (* 2.0 (getvar "textsize"))) 
                         ) 
                       ) 
                      lst 
              ) 
            ) 
            (princ lst) 
          ) 
        ) 
      ) 
      (foreach n el 
        (redraw n 4) 
      ) 
      ;;(xdrx_Pickset_Redraw (ssget "x" (list (cons 2 sBlkl))) t) 
    ) 
  ) 
  (xdrx_sysvar_pop) 
  (xdrx_end) 
  (princ) 
)[/php]

曼漫 · 发表于 2004-1-12 19:43:51

先谢谢啊。。。。：）
xdrx_api是晓东工具箱吗？一定要嫁接在这个工具上面才能使用么？能不能写成单独使用的啊？

PS:我一直都下载不了“晓东工具箱”，连接不上，不懂怎么回事？没办法试用

eachy · 发表于 2004-1-14 18:50:52

最初由曼漫发布
[B]先谢谢啊。。。。：）
xdrx_api是晓东工具箱吗？一定要嫁接在这个工具上面才能使用么？能不能写成单独使用的啊？

PS:我一直都下载不了“晓东工具箱”，连接不上，不懂怎么回事？没办法试用 [/B]

你用什么CAD版本？

ywx0576 · 发表于 2004-1-17 09:27:33

我也是一直都下载不了“晓东工具箱”和李国杰的“ASDE"，不懂怎么回事？

autotools · 发表于 2004-1-17 09:27:39

图块名数量

桃花心木 1

麻楝       1

樟树       1

阴香       1

橡胶榕    1

细叶榕    1

高山榕    1

黄槿       1

假苹婆    1

马占相思 2

仁面       2

散尾葵    2

蒲葵       2

大王椰子 2

黄金叶    2

四季桂花 2

造型花叶榕  1

山指甲    1

非洲茉莉 1

龙柏球    1

红叶李    1
......

whj1102 · 发表于 2004-1-17 12:36:38

我也贴一个

齐丝 · 发表于 2004-1-27 14:22:23

14楼和15楼的两个lisp可以直接在2002里用吗？那个block_num，是可以直接在图中把表列出来吗？

账号		自动登录	找回密码
密码			立即注册

（完成）[编程申请]：求一个LSP,计算块数量

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

请试试我的：BLOCK_NUM .lsp，可以直接列出图块表（苗木表等），没有漏网之鱼。

浏览过的版块