再贴个算钢筋的小程序

非ing

XDSoft 发表于 2013-6-1 17:50
楼主，你的程序在你都正确交互的情况可能得到结果，但是中间如果有任何交互错误，比如没点到实体等，都会出 ...

呵呵，谢谢各位前辈高手对我的程序的点评，这些程序实际是在工作中随用随编的一些小工具，一些代码编写的也是没有考虑的十分周全。实际上正如我前面的帖子说我的动机确实不够纯正的，主要是为了看看有权限设置的精华帖，当然我这抛出来的臭泥砖，引来各位高手的金玉良言，也是意料之外。再次说声谢谢。
- 本文出自晓东CAD家园-论坛，原文地址：http://bbs.xdcad.net/thread-668553-1-1.html

非ing

Lispboy 发表于 2013-6-1 17:39
楼主，你可以用向量的长度算距离，更简洁

呵呵，谢谢各位前辈高手对我的程序的点评，这些程序实际是在工作中随用随编的一些小工具，一些代码编写的也是没有考虑的十分周全。实际上正如我前面的帖子说我的动机确实不够纯正的，主要是为了看看有权限设置的精华帖，当然我这抛出来的臭泥砖，引来各位高手的金玉良言，也是意料之外。再次说声谢谢。
- 本文出自晓东CAD家园-论坛，原文地址：http://bbs.xdcad.net/thread-668553-1-1.html

pengfei2010

嗯   楼主的考虑三维 我工作中 主要是是用的2维，不过 必须顶一下

crazylsp

;图上量间距和全长，写入尺寸标注内容 a+n*@+a=b

[sell=1];;图上量间距和全长，写入尺寸标注内容 a+n*@+a=b

(defun c:tt ()
   (setq ds1(getdist "量间距")
         ds2(getdist "量全长"))  (if (> ds2 ds1)(progn(setq
         n(fix(/ ds2 ds))
         a(rtos(/(- ds2 (* n ds1))2)2 2)
         str(strcat a "+" (itoa n) "×" (rtos ds1 2 2) "+" a "=" (rtos ds2 2 2) )
   )
   (alert (strcat  str " 是否理想?"))
   (setq ssn (car (entsel"选择标注尺寸")))
   (setq ent (entget  ssn))
   (setq ass (assoc 1 ent))
   (entmod(subst (cons 1 str) ass ent))
   (princ) ))
)[/sell]

XDSoft

hai20130408 发表于 2013-6-3 12:37
呵呵，谢谢各位前辈高手对我的程序的点评，这些程序实际是在工作中随用随编的一些小工具，一些代码编写的 ...

设置权限，就是希望大家都和你一样，这样，大家能获得的知识会更多，希望每个人都参与进来。

XDSoft

hai20130408 发表于 2013-6-3 12:37
呵呵，谢谢各位前辈高手对我的程序的点评，这些程序实际是在工作中随用随编的一些小工具，一些代码编写的 ...

http://bbs.xdcad.net/thread-668774-1-1.html

http://bbs.xdcad.net/thread-668776-1-1.html

希望楼上的朋友参与下。