zhuquanmao 发表于 2012-4-9 00:17:32

本帖最后由 zhuquanmao 于 2012-4-9 00:28 编辑

看看楼下的代码 我这里成了

zhuquanmao 发表于 2012-4-9 00:28:45

本帖最后由 zhuquanmao 于 2012-4-9 00:33 编辑



(defun c:TT ( / ang bhx osm pt1 pt2 pt3 qzx r rx tt)
(setq osm (getvar "osmode"))
(setvar "cmdecho" 0)
(if (null rr)
    (setq rr (getvar "circlerad"))
)
(initget (+ 2 4))
(setq rx (getreal (strcat "\n请输入标号圆半径 < " (rtos rr) ">:")))
(if (null rx)
    (setq r rr)
    (setq r rx)
)
(if (= bh nil)
    (progn
      (initget (+ 2 4))
      (setq bh (getint "\n输入起始号<1>:"))
      (if (= nil bh)
(setq bh 1)
      )
    )
    (progn
      (setq bhx (getint (strcat "\n输入起始号<" (itoa bh) ">:")))
      (if (= bhx nil)
(setq bh bh)
(setq bh bhx)
      )
    )
)
(if (null qz)
    (setq qz (getstring "\n前缀<无>:"))
    (progn
      (setq qzx (getstring (strcat "\n前缀<" qz ">:")))
      (if (= qzx "")
(setq qz qz)
(setq qz qzx)
      )
    )
)
(setq tt 0)
(while (= tt 0)
    (setq pt1 (getpoint "\n请输入第一点: "))
    (if pt1
      (progn
(setq pt2 (getpoint pt1 "\n请输入第二点: "))
(if pt2
    (progn
      (setvar "osmode" 0)
      (command "_.line" pt1 pt2 "")
      (setq ang (angle pt1 pt2))
      (setq pt3 (polar pt2 ang r))
      (command "circle" pt3 r)
      (command "text" "mc" pt3 r 0 (strcat qz (itoa bh)))
      (setq bh (1+ bh))
      (setvar "osmode" OSM)
      (setq tt 0)
    )
    (setq tt 1)
)
(setq tt 0)
      )
      (setq tt 1)
    )
)
(setq rr r)
(setvar "cmdecho" osm)
(prin1)
)

xingyun300 发表于 2012-4-9 11:37:10

zhuquanmao 发表于 2012-4-9 00:28 static/image/common/back.gif


嘿嘿，这个程序行！

zhuquanmao 发表于 2012-4-9 12:16:47

xingyun300 发表于 2012-4-9 11:37 static/image/common/back.gif
嘿嘿，这个程序行！

getstring   回车 会得到“”而不是nil

xinmh 发表于 2015-2-3 18:59:31

我怎么不行啊。。。。

xinmh 发表于 2015-2-3 19:09:43

前缀加上了，改不回来了，怎么改成无？

不语勿语 发表于 2018-11-25 23:27:44

            留个脚印

依然小小鸟 发表于 2018-11-26 13:45:36

不错的帖子 支持一下
页: 1 [2]
查看完整版本: 求助高手-----改为记忆数字递增-----（祥图编号）-----标题要长 要长