[编程申请]：求一个标注苗木的LSP。。

曼漫

我搜索了论坛，发现EACHY以前已经编了一个类似的VLX，我试用了一下，原理基本就是这样，但是还是希望能修改一下就很OK了。
我的需要是这样的：
1。希望能框选范围，然后点选块（我的块都是以苗木的名字作为块名的），接着能计算范围内块数量（这个跟以前我求的LSP一样的），然后拉一个标线进行标注。这个跟那个VLX很相似，但是以前的那个要在表内选取植物，还要写数量（我都不懂有多少株，不好写），所以写得麻烦。
2。我的图内，所有的片植的苗木都框选一个边框的，所以我希望还是能够这样：选择我需要的边框便能自动求和，然后出示一个由我填名称的对话框，我写了名字后还是拉一个标线进行标注。
    如果可以的话，还希望能添加后缀，如“株”，“平方米”。我目前的标注形式是这样的：扁桃（12株）；花叶鹅掌柴（23㎡）。
文字最好是使用单行文字。
*-*6 提了好多要求，希望斑竹或者高手们不要介意。
希望能伸出援手，解决我的一个大问题。*-*3 *-*3
下面一个LSP，是计算面积的，好像也是从这里下载的吧，希望能够有所参考。*-*a

eachy

最初由 曼漫 发布
[B]我搜索了论坛，发现EACHY以前已经编了一个类似的VLX，我试用了一下，原理基本就是这样，但是还是希望能修改一下就很OK了。
我的需要是这样的：
1。希望能框选范围，然后点选块（我的块都是以苗木的名字作为块名的?.. [/B]

以前写的那个标注虽然在标注提示框中有几项，只要根据你自己的需要来填写，除了名称是必须的，其他都是可选项。

再次重申，针对专业应用的 [编程申请] 请附图并在图中详细说明。

曼漫

附图？不懂什么意思。。难道要看我的标注的DWG图？主要是要能结合数量计算就最好了。原来那个真的比较麻烦。现在我的块都是用苗木名称做块名的，这样计算将更加快

eachy

最初由 曼漫 发布
[B]附图？不懂什么意思。。难道要看我的标注的DWG图？主要是要能结合数量计算就最好了。原来那个真的比较麻烦。现在我的块都是用苗木名称做块名的，这样计算将更加快 [/B]

每次标注都是针对框内的植物？
还有填充的面积比较复杂，有时候看似完整的填充可能内部数据是混乱的，用工具箱的填充边界重建可以验证。

eachy

最初由 曼漫 发布
[B]附图？不懂什么意思。。难道要看我的标注的DWG图？主要是要能结合数量计算就最好了。原来那个真的比较麻烦。现在我的块都是用苗木名称做块名的，这样计算将更加快 [/B]

先来个简单的，看是这个意思吗？
[php]
($xdrx_load "xdlsp.lsp")
(defun c:XDTB_DmLh1 (/ e ss p blkname num)
  (xdrx_begin)
  (xdrx_sysvar_push "osmode")
  (if (and (setq e (xdrx_entsel "\n拾取标注植物: " '((0 . "insert")))
                 p (getpoint (last e) "\n引出点: ")
           )
           (if (not *xdtb_globle_box*)
             (progn
               (setq ss (ssget (list (assoc 2 (entget (car e))))))
               (setq *xdtb_globle_box* (xdrx_drawing->lastpts))
               t
             )
             (progn
               (setq ss        (ssget "_c"
                               (car *xdtb_globle_box*)
                               (cadr *xdtb_globle_box*)
                               (list (assoc 2 (entget (car e))))
                        )
               )
               t
             )
           )
      )
    (progn
      (setvar "osmode" 0)
      (command ".pline" (last e) p (polar p 0. 100.) "")
      (xdrx_setenttodb (car e))
      (setq blkname (xdrx_getentdxf 2)
            num            (sslength ss)
      )
      (command ".text"
               (polar p (* 0.25 pi) 1.414)
               "4"
               "0"
               (strcat blkname "(" (atoi num) "株)")
      )
    )
  )
  (xdrx_sysvar_pop)
  (xdrx_end)
  (princ)
)[/php]

曼漫

我的边框肯定是2D线，因为大部分都是使用PL线或者BO这个命令做出来的，我们会去处3D线条的。另外，上面的那个LSP是需要安装工具箱的吗？我用不了，不认命令。我一直都下不了工具箱的。恩，计算的数量都是框选的范围之内的数量。