Sbeth85,我使用lisp来处理我知道必须多次执行的所有事情。最新示例:
我必须使用fillet命令(不同半径)和“折线”选项:
- (defun c:ff1 ()
- (COMMAND "FILLETRAD" "1000")
- (command "fillet" "P" PAUSE)
- )
- (defun c:ff2 ()
- (COMMAND "FILLETRAD" "2000")
- (command "fillet" "P" PAUSE)
- )
- (defun c:ff3 ()
- (COMMAND "FILLETRAD" "3000")
- (command "fillet" "P" PAUSE)
- )
- (defun c:ff4 ()
- (COMMAND "FILLETRAD" "4500")
- (command "fillet" "P" PAUSE)
- )
关于偏移相同:
- (defun c:o1 ()
- (command "offset" "1000")
- )
- (defun c:o2 ()
- (command "offset" "2000")
- )
- (defun c:o3 ()
- (command "offset" "3000")
- )
- (defun c:o4 ()
- (command "offset" "4500")
- )
和直线切线:
这些是我今天写的“一次性”口齿不清-我在一个特定的项目中经常使用它们,只是为了节省自己一些按键/点击/时间。它们的创建非常简单,可以节省大量重复工作。我有类似的设置用于打印、清除、重命名层、插入块、旋转90180270度等。
我建议lisp/script所有重复任务
P、 我正在写另一个:删除某个块,清除,调用vba,插入一个公司块并填充内容。这没什么大不了的,但我必须在一组30张图纸上重复这些动作,值得花10分钟来做一个lisp来帮我完成。 |