英国威廉希尔官网

澳门威廉希尔注册-Lisp 连续标注

0
  1.   (defun c:zzz()
  2.  (setvar "cmdecho" 0)
  3.  (setq bzz (getreal "n标注开始值<1>:"))
  4.  (setq bzbl (getreal "n标注比例值<1>"))
  5.  (if (= bzz nil)
  6.   (setq bzz 1)
  7.  )
  8.  (if (= bzbl nil)
  9.   (progn
  10.    (setq bzbl 1)
  11.    (setq zzz_bj (* bzbl 5))
  12.    (setq zzz_zg (* bzbl 3.5))
  13.   )
  14.   (progn
  15.    (setq zzz_bj (* bzbl 5))
  16.    (setq zzz_zg (* bzbl 3.5))
  17.   )
  18.  )
  19.  (while
  20.   (setq dian (getpoint "n选择要标注的点:"))
  21.   (setq dian1 (list ((car dian) 1) ((cadr dian) 1)))
  22.   (setq dian2 (list ((car dian) 1) ((cadr dian) 1)))
  23.   (command "circle" dian zzz_bj "")
  24.   (command "change" (entlast) "" "p" "c" "150" "")
  25.   (command "mtext" dian1 "j" "mc" "h" zzz_zg dian2 (rtos bzz 2 2) "" "")
  26.   (command "change" (entlast) "" "p" "c" "150" "")
  27.   (setq bzz (+ bzz 1))
  28.  )
  29. (princ) 
  30. )


Powered by DLKIT 开发版 © 2011-2012 DLCMS.NET Inc.
英国威廉希尔官网 © 2017-2019 威廉希尔_威廉希尔官网_英国威廉希尔官网

住所:南充市顺庆区油院路30号南充高新孵化园内

联系人:刘义君

联系电话:18781755505(微信同号)

QQ:23424830

Email : 23424830@QQ.com

betway必威下载优发娱乐官网下载英国威廉希尔官网十博体育网

      Powered by DLCMS © 2011-2012 DLCMS.NET Inc.