新人最爱command

yeahyeah

;-----------------------------------------------------------------------
;阵列


;;;(defun c:tt()


;第一种(1):
;(command "array" 对象 "" "p" 阵列中心点坐标 数量 填充角度 "Y")                 ;环形阵列


;;;(setq obj (car(entsel)))
;;;(setq ro (getpoint"请指定圆心点:"))
;;;(command "array" obj "" "p" ro 6 180 "Y")
  
;第一种(2):
;(command "array" 对象 "" "p" "b" 数量 填充角度 "Y")                 ;环形(P) 环形阵列


;第一种(3):
;(command "array" 对象 "" "p" 阵列中心点坐标 数量 填充角度 "N")                 ;环形(P) 环形阵列
  
;第一种(4):
;(command "array" 对象 "" "p" "b" 数量 填充角度 "N")                 ;环形(P) 环形阵列




;第二种:
;(command "array" 对象 "" "r" 行数 列数 行间距 列间距)                 ;环形(P) 环形阵列


;;;(setq obj (car(entsel)))
;;;(command "array" obj "" "r" 5 6 -1000 1000)          ;矩形(R) "r"可以写作"",为默认


;有人说，(command "array" 对象 "" "r" 行数 列数 行间距 列间距 角度)，可是我试了，根本没有角度。


;;;)

yaokui25

楼主，把你发的打个包上传一下好吗？
这些东西对新人来讲很有用

yeahyeah

yaokui25 发表于 2013-8-10 11:49
楼主，把你发的打个包上传一下好吗？
这些东西对新人来讲很有用

感谢师兄的支持！
你让我打个包全发上来，我目前还做不到，因为这是我整理一点就发上来一点的东西。
以后会随时更新。我也希望越来越多的人来参与，思考，讨论，整理。
我在整理过程中遇到不少疑问，都用红色字示出，还希望师哥师姐不吝赐教。

yeahyeah

;-----------------------------------------------------------------------
;打断
;(defun c:tt()

;第一种:打断于点
;(command "break" 对象 "F" 对象上坐标 "")

;;;(setq obj (car(entsel "\n指定对象:")))
;;;(setq pa (getpoint "\n指定打断点:" ))
;;;(command "break" obj "F" pa "@")      ;[第一点(F)]        ;为什么加"@"?我还不知道，CAD快捷键书上就这么教的。。

;第二种:打断
;(command "_break" 对象 "F" 对象上坐标 对象上坐标 "")

;;;(setq obj (car(entsel "\n指定对象:")))
;;;(setq pa (getpoint "\n指定打断第一点:" ))
;;;(setq pb (getpoint "\n指定打断第二点:" ))
;;;(command "break" obj "F" pa pb)                ;[第一点(F)]

;以上我都加了"F",这是因为我在试的过程中，发现有两种模式，
;一种是把指定对象时的点当做打断的第一点，一种是打“F”后，自己指定打断第一点。
;两种模式因为使用前后顺序的不同，会切换进行。
;为了稳妥，我都加“F”，这样就不会混乱掉。

;)

自贡黄明儒

好象简单的东西给你搞复杂了

ZZXXQQ

所有的在帮助中都有。

yeahyeah

ZZXXQQ 发表于 2013-8-11 09:42
所有的在帮助中都有。

谢谢老师！迷茫之人往往忘记chm文件！哈哈哈！谢谢啦！

yeahyeah

自贡黄明儒 发表于 2013-8-11 08:17
好象简单的东西给你搞复杂了

嗯嗯……那怎么才能简单些呢？

yeahyeah

看到一个很好的帖子：[原创]关于command函数的调用
还发现了关于使用不使用command调用CAD命令的争议。
看起来，自己真的还很肤浅。还有很长的路要走。

726613

支持自己编写程序