[求助]：帮一下我这个对lisp程序一无所知的人

wayi2002

这个程序我是想达到这样的目的：我经常标注1号楼、2号楼、。。。。。。N号楼，现在有建筑物，运行命令后，点第一个建筑物内一个位置，注记了1号楼，点第二个建筑物内某个位置注记了2号楼，依次到N号楼。

楼上您好，您可能没有理解我的意思，您的程序提示：“点取编号文本”，仍然需要选择文本才能开始标注，问题是现在就只有建筑物，没有文本可供选择，现在只能随便输入一个文字，用来选择后开始标注，不便，我的要求是：提示选择对象时，选建筑物（建筑物边线），然后在建筑物内指定位置即可进行依次标注。谢谢！！

carrot1983

楼主要的应该是一个对话框:
-------------------------------
名称:***
起始编号:***
增加值:***
确定 取消
--------------------------------
按确定后,屏幕拾取点,在点上写"名称+编号"
编号每点一点累加一个增加值

看哪位有心帮你编一下...

wayi2002

楼主要的应该是一个对话框:
-------------------------------
名称:***
后缀起始编号:***
后缀增加值:***
确定 取消
--------------------------------
按确定后,屏幕拾取点,在点上写"名称+编号"
后缀编号每点一点,累加一个增加值
看哪位有心帮你编一下... ”


楼上朋友好：没有你说的那么复杂，我只是想运行命令后，提示选择对象时，因为没有文本对象可供选择（只能人为输入一个文字供选择），选建筑物（建筑物边线），然后在建筑物内指定位置即可进行依次标注XX号楼。这种情况不能达到的话，能否这样：标注的XX号楼的字型、字体、高度等随选择的这个文本的样式。目前程序标注的XX号楼字体高度等固定不变。谢谢！！希望能得到您的帮助改改程序

carrot1983

这个样子会不会太简单了,如果还不行的话,只能说你要的太深奥了,看不懂
[php]
(defun C:1 (/ I PT1)
  (setq i (getint "\n起始楼号:"))
  (while (setq PT1 (getpoint "\n插入点:"))
    (command "_.text"
             "non"
             PT1
             pause
             ""
             (strcat (itoa i) "号楼")
    )
    (setq i (+ 1 i))
  )
  (princ)
)

[/php]

wayi2002

已经很不错了，如果再要你改的话我觉得很对不起您，是不是我的要求有点高，可能对您来说很简单，谢谢了 。
现在是，运行命令——提示起始楼号——输入1——提示插入点——指定点后提示指定高度——输入高度后——出现1号楼——再次提示插入点。以上都非常好，我想再次提示插入点时，指定点后即出现2号楼，不再提示输入高度（随前面的高度）。另外指定点后提示指定高度改为先指定高度再指定点就更好了。
要这样的效果，运行命令——提示起始楼号——输入1——提示指定高度——输入高度——提示插入点——指定点后出现1号楼——再次提示插入点——指定点即出现2号楼——再次提示插入点——指定点即出现3号楼——依次到N号楼，谢谢！！请帮助

carrot1983

刚开始讲清楚就好了.讲清楚,第二楼就可以解决的.呵呵
[php]
(defun C:1 (/ I PT1 H)
  (setq i (uint 1 "" "\n起始楼号" 1))
  (setq h (ureal 1 "" "\n指定高度:" 2.5))
  (while (setq PT1 (getpoint "\n插入点:"))
    (command "_.text"
             "non"
             PT1
             h
             ""
             (strcat (itoa i) "号楼")
    )
    (setq i (+ 1 i))
  )
  (princ)
)

;;;语法：(ureal 1 "" "\n\t实数" no1),实型数输入格式化.
(defun ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp
    inp
    def
  )
)

;;;语法：(uint 1 "" "\n\t整数" no1),整型数输入格式化.
(defun uint (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (itoa def) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getint msg))
  (if inp
    inp
    def
  )
)

[/php]

wayi2002

我不知该如何感谢你！谢谢您！完全符合我的要求了。不知您来自哪个城市？我在郑州，来郑州的话吃住我安排您！再次谢谢！王营13393728266

animal212

哈，原来你跟zml84是同一个城市的，那就请zml84吃饭吧，他也帮了你不少忙哦。
小萝卜真可怜，没口福啊

wayi2002

好啊！很想认识zml84，还有你，和我联系吧！请吃饭没问题。

carrot1983

最初由 animal212 发布
[B]哈，原来你跟zml84是同一个城市的，那就请zml84吃饭吧，他也帮了你不少忙哦。
小萝卜真可怜，没口福啊 [/B]

你请我吧．．．美女．．．

qwer2050

楼主辛苦了。非常感谢。。