AutoLISP 小教程（高清PDF）

damonyang · 发表于 2018-3-27 14:22:46

哈哈哈哈或或或或或或或或或或或或或或或或或或好或或或

Stephen_n1jJZ · 发表于 2018-4-28 22:19:20

谢谢分享谢谢分享谢谢分享

qq173840699 · 发表于 2018-4-29 16:40:40

想看看源码

7325pink · 发表于 2018-5-1 06:04:40

谢谢楼主分享！

huguanglinux · 发表于 2018-5-1 09:13:16

正在寻找这种他山之石

laurasia · 发表于 2018-5-8 16:51:13

(defun c:xgth ()
  (setq os (getvar "osmode"))
  (setq om (getvar "cmdecho"))
  (setvar "osmode" 68)
  (setvar "cmdecho" 0)
  (princ "\n请选择一个图号")
  (setq ss1 (entsel))
  (if ss1
(progn
   (setq ss1ent (entget (car ss1)))
   (setq ss1la (cdr (assoc 8 ss1ent))
         ss1style (cdr (assoc 7 ss1ent))
         ss1text  (cdr (assoc 1 ss1ent))
         th1no (vl-string-position (ascii "-") ss1text 0 t)
         th1          (substr ss1text 1 (+ th1no 1))
   )
   (setq ss2       (ssget "x"
                     (list (cons 8 ss1la)
                           (cons 7 ss1style)
                     )
            )
   )
;;;    (vl-cmdf "_erase" ss2 "")
)
  )
  (setq       shuzhi1       (getint "\n请输入起始页：")
      zongyema (getint "\n请输入张数：")
      pt1       (getpoint "\n请在屏幕上选第一个注记点：")
      pt2       (getpoint pt1 "\n请在屏幕上选第二个注记点：")
      juli       (distance pt1 pt2)
      i       0
  )
  (repeat zongyema
(setq pt1x       (car pt1)
      pt1y       (cadr pt1)
      pt2x       (+ pt1x (* juli i))
      pt2       (list pt2x pt1y)
      shuzhi2 (+ shuzhi1 i)
      th2       (strcat th1 (rtos shuzhi2 2 0))
)
(command "_text" "s" ss1style "j" "mc" pt2 "9" "0" th2)
(vl-cmdf "change" (entlast) "" "p" "la" ss1la "")
(setq i (+ i 1))
  )
  (steq jj 0)
  (repeat (sslength ss2)
(setq ss21          (ssname ss2 jj)
      ss21ent  (entget ss21)
      ss21text (cdr (assoc 1 ss21ent))
)
(if       ss21text
   (progn
      (if (vl-string-search th1 ss21text 0)
      (vl-cmdf "_erase" ss21 "")
      )
   )
)
(setq jj (+ jj 1))
  )

  (setvar "osmode" os)
  (setvar "cmdecho" om)
  (princ "\nOK!")
  (princ)
)

tsingtao · 发表于 2018-5-9 09:54:38

学习先进技术，感谢楼主

CCHUWEI · 发表于 2018-5-10 14:15:58

想学这个教程

王子 · 发表于 2018-5-10 14:59:17

下下来看看，学习学习啊。

春天里的蛋蛋 · 发表于 2018-5-12 22:02:22

不错不错，谢谢楼主

shpdzhj · 发表于 2018-5-18 15:14:36

谢谢分享！！！！

spacevalue · 发表于 2018-6-13 21:13:21

韩非文 · 发表于 2018-6-14 09:02:34

谢谢楼主的分享

VBA · 发表于 2018-6-14 10:46:41

学习一下

huangjie099 · 发表于 2018-6-17 17:12:20

AutoLISP 小教程

账号		自动登录	找回密码
密码			立即注册

[他山之石] AutoLISP 小教程（高清PDF）