macrorecorder.lsp

AUTOCAD中不具有宏录制功能

;;本过程创建一个边界
(defun c:test()
  	(setvar "cmdecho" 0)
	(setq pt (getpoint "\n拾取内部点:"))
  	(COMMAND "BPOLY" pt  "" "Y" )
        (setq xy " ")
	(while pt
	  (setq x (car pt))
	  (setq y (cadr pt))
	  (setq xx (rtos x 2 5))
	  (setq yy (rtos y 2 5))
	  (setq xy (strcat xy xx "," yy ","))
	  (setq pt (getpoint "\n拾取内部点:"))
	  (if pt
	    (COMMAND "BPOLY" pt  "" "Y" )
	   )
	 )
	(setvar "users1" xy)
)
;;本过程返回填充内的种子点坐标
(defun c:gethatchpoint()
  (setq en1_data (entget (entlast)))
  (setq pr (assoc 98 en1_data))
  (setq prl (member pr en1_data))
  (setq c (cdr pr))
  (setq prl (cdr prl))
  (setq crd "")
  ;;(alert (itoa c))
  (while (/= 0 c)
    (setq ip (car prl))
    (setq crd (strcat crd (rtos (cadr ip)) "," (rtos (caddr ip)) "," ))
    (setq prl (cdr prl))
    (setq c (- c 1))
    ;;(alert coordinate)
    (setvar "users1" crd)
    )
 )