[求助]如何将各个字串结合在一起 已解决

461045462

  由于作图需要，常要将字母与数字相结合在一起。如：字母F 与数字1 、2、3....合在一起，写成 F1、F2、F3.....等。

写了一个lsp，可是字母不能加在一起，只有数字。

见如下：

   (defun c:111()
     (setq k (getstring "\n输入序号前缀（如：F ）: "))
    (setq n (getint "\n请输入当前点号："))

    (setq p (getpoint "\n选取点: "))

    (command "circle" p "0.08856")

     (setq p2 (polar p 1 1))

      (command "text" p2 "1" "0" n)
     )

    (prin1)

 

 

 

 要做出如下图式样

 

请高手帮助修改。

谢谢

 

 

 

 已解决

 

 

Gu_xl

(defun c:111()
     (setq k (getstring "\n输入序号前缀（如：F ）: "))
    (setq n (getint "\n请输入当前点号："))

    (setq p (getpoint "\n选取点: "))

    (command "circle" p "0.08856")

     (setq p2 (polar p 1 1))

      (command "text" p2 "1" "0" (strcat k (itoa n)))
     )

461045462

  谢谢Gu_xl

   可以 标注了。

还想请教一个问题：如何能让k、n在中断后，接着启动时，仍然按前面的序号前缀，接着点号+1的方式继续操作？因为有时操作要临时中断。

另外，不知道能否设置两个层。当有序号前缀时，自动实行当前层为坐标F层，没有序号前缀时，自动实行当前层为坐标层？因为要区分开层次。

望指教。谢谢

crazylsp

 

...有前缀时
(command "-layer" "n" "坐标F层" "")     ;第一次要新建"坐标F层"层,以后不用再建
(command "-layer" "s" "坐标F层"  "")    ;设为"坐标F层"成当前层
...没前缀时
(command "-layer" "s" "其它层名你"  "") ;设其它层成当前层