1. 当前位置: 首页 >> CAD插件 >>

      澳门威廉希尔注册-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.
      Copyright © 2017-2018 威廉希尔_威廉希尔官网_英国威廉希尔官网