半夜星星 发表于 2018-2-27 17:03:51

实现最后活动单元格在最后输入的单元格上

本帖最后由 半夜星星 于 2018-2-28 08:35 编辑

;;;;;;;;;该处如何实现excel行内换行呢？？激活到最后一行，下次再用的时候可以继续往下一行写，而不是到EXCEL中换行再输入了
(defun c:tt1( / );在当前活动单元格中输出单行文本       
        (setq AAAA (cdr(assoc 1 (entget(car(entsel))))))       
        (setq i 1)
(repeat 3
          (setq range (vlax-variant-value (vlax-get-property (Vlax-Get (Vlax-Get-Or-Create-Object "Excel.Application" ) 'ActiveCell ) 'Item i)))
          (Vlax-Put-Property range 'Value2 AAAA );;;;;;;;;该处如何实现excel行内换行呢？？                                       
          (setq i (1+ i))
)
)


半夜星星 发表于 2018-2-27 20:05:00

就是EXCEL换行如何弄啊
页: [1]
查看完整版本: 实现最后活动单元格在最后输入的单元格上