(or copy_reactor (setq copy_reactor (vlr-command-reactor "copy_reactor" '((:vlr-commandEnded . copy_1))))) 这句是什么意思?
(vlax-put-property Aobj 'TextString (strcat "X=" (rtos (car p1) 2 1) "\nY="(rtos (cadr p1) 2 1)))))) 这句是怎么实现修改坐标文字的?
(defun copy_2 (obj vlrobj data) 三个参数对应那些数据? |