吴所不及

[结构软件]柱子填充的autolisp源代码

Sat, 12 May 2007 07:27:46 +0800

作者wujimmy 出自www.wujimmy.com 专贴请注明出处.

对于TSSD的填充功能不大好用,存在好多的限制,
比如要求是柱图层,要求是随层的颜色.

使用方法我就不说了.
命令mybh

Quote

(Defun c:mybh (/ e e1 la ps si smx ss ssh)

(command "_undo" "be" "")
(command "layer" "m" "HATCH" "")
(if (and
   (princ "\n选择要填实的柱子<退出>：")
   (setq
   ss  (ssget (list '(0 . "lwpolyline") ))
   )
)
(progn
   (setq smx (sslength ss)
     si 0

给DWG文件减肥

Mon, 05 Mar 2007 23:44:23 +0800

作者wujimmy 出自www.wujimmy.com 专贴请注明出处.

DWG文件是越画越大.真不知道是为什么.明明的空的文件,也会有好几M.
经过一些研究发现原来是"图层过滤信息"占了很大的空间.
于是动手写了这个程序(其实也是网上找来的):

当你发现你的文件PU完了,还是很大的时候,
当你发现CAD之间拷贝复制很慢的时候,
说明垃圾信息已经很多了,是到该清理的时候了.
该出手时就出手.
可以试试下面这个程序.

Quote

(defun C:mypu ()
(vl-Load-Com)
(vl-Catch-All-Apply
'(lambda ()
(vla-Remove
   (vla-GetExtensionDictionary
   (vla-Get-Layers
   (vla-Get-ActiveDocument

批量数字加减运算(用于改批量改标高)

Sun, 28 Jan 2007 00:28:51 +0800

Quote

(defun convert_string_to_real_lst (str / lst n s1 cha )
(setq  s1 ""
  n 0
)
(cond  ((wcmatch str "*-*") (setq 分隔符 "-"))
  ((wcmatch str "*=*") (setq 分隔符 "="))
  ((wcmatch str "*~*") (setq 分隔符 "~"))
  ((wcmatch str "*x*") (setq 分隔符 "x"))
  (T (setq 分隔符 "-"))
)
(repeat (strlen str)
(setq cha (substr str (setq n (1+ n)) 1))
(if  (= 分隔符 cha)
(setq lst  (append lst (list (atof s1)))

集中标注处理序

Tue, 14 Nov 2006 07:28:44 +0800

;;集中标注处理序
;;显示特殊的标注,比如有标注数值与长度差别比较多的.比例不是多少的.==
(defun c:dimcheck()
(setq wjm_dc_check_diet (getint "\n输入误差值:"))
(princ "\n选择标注:")
(setq ss (ssget (list (cons 0 "DIMENSION"))))

(if (ssget "X" (list (cons 8 "wujimmy_dc_Error")))
  (progn
   (command "erase" "P" "")
  )
)
(setq errornum 0)
(while (and ss (setq en (ssname ss 0)))
(ssdel en ss )(setq ent (entget en))

任意版本CAD均可加载的arx文件的研究

Sun, 05 Nov 2006 17:11:16 +0800

通过GetProcAddress,LoadLibrary这两个函数来获取函数的地址,
对一下简单的程序,就可以实现不用重新编辑就可以在不同的CAD版本中加载的ARX文件了.

但是目前还是碰到一些问题,就是这个函数:
acrxGetApiVersion,无法获取其代码.
因为这个函数通过以上的方法是无法获取的.即使是loadlibrary别的arx文件也是无法获取的到的.

而自己随便定义一个这样的函数也不得,真不知道这个函数到底是完成了什么功能.而CAD又是如何识别出不同的版本来的呢???

我试过了以下几个办法来获取这个函数的办法:
1.

Quote

自己定义一个这样的函数,可以CAD好像看都不看一下,就说是版本不对.
void* acrxGetApiVersion()
{
char szHello[] = "Hello, world!";

我的自定义CAD命令

Sun, 29 Oct 2006 23:11:33 +0800

my cad command.lsp

Quote

(setq wjm_offset_dist_list (list 100))
(defun c:offset()
(princ "输入或选择偏移距离:")
(foreach offset_dist wjm_offset_dist_list
(progn
(princ offset_dist)
)
)
()
)

文字替换工具.替换完了窗口自动跳回来.

Sun, 29 Oct 2006 23:09:37 +0800

(defun c:rt()
;;保存窗口.
(setq wjm_old_viewsize (getvar "viewsize"))
(setq wjm_old_viewctr (getvar "VIEWCTR"))

(princ "\n请选择要被替换的文字：")
(setq text1 (single_select (list (cons 0 "text")) nil))

(redraw text1 3)
(setq el1 (entget text1))
(setq txt1 (cdr (assoc 1 el1)))

(princ "\n请选择新的文字：")
(setq text2 (single_select (list (cons 0 "text")) nil))

(setq el2 (entget text2))

CAD拷贝,移动时的动态显示实现方式猜想

Sat, 23 Sep 2006 11:04:24 +0800

CAD的几个命令,可以在执行命令的时候,动态显示.
可以实时看到显示效果,实在是众编程者所要的那种效果.

这种效果,用OBJECTARX来实现是比较简单的.

不过用AUTOLISP实现起来就有点吃力了.
因为要不断的entmod实体,实在是比较慢,而且会卡.一闪一闪的.

今天发现一个现像,我的用移动命令的时候,把东西移动到标注上,不小心,死了.
结果CAD死了.我点了保存文件(2002可以保护为新的文件,所以就保存了).

又得重新开CAD,打开原来的图,看看,还差好多.想想还是修复一下算了.
还好能用,只查出了一个错误就好了.

什么,有一个错误,什么错误?速速报来!

Quote

发现无效的块名“”。
改为“AUDIT_I_060923095030-0”。

无效块?哪里来的块?莫非是.....
没错,就是那个命令COPY生成的,生成一半死掉了,还来不及删掉就被CAD保存下来了.

[新写的程序]选择部分图形隐藏或显示

Thu, 07 Sep 2006 13:05:34 +0800

使用方法:
1.命令ee.
2.输入编号,为数字,用这个数字来开关显示所选的图形.
3.选择图形.
输入命令:(刚刚你在第2步里面所输入的数字)则隐藏图形.
两次输入命令::(刚刚你在第2步里面所输入的数字)则显示图形.

把以下文件保存为 .lsp文件,用CAD加载即可食用,无需冷藏!.

Quote

;隐藏或显示部分图形
;作者wujimmy 来自:http://www.wujimmy.com
(setq wjm_hide_lst nil)
(defun c:ee()
(setq index_num (getint "图形组编号:"))
(princ "\n选择要显示或隐藏的图形:")
(setq es (ssget))
(if es
(progn

(if (assoc index_num wjm_hide_lst)

Autolisp速度研究两则

Tue, 15 Aug 2006 20:09:01 +0800

用来做一个造价比较软件时发现两个问题
1.一个是函数CAL运算速度比较慢,虽然这个函数用来求表达式比较直观,但是速度有比较大的降低,所以后来还是全改过来了.

下面是一个例子,分号后面的是原来的CAL函数计算的.

Quote

;;;由梁截面求钢筋面积.
;;;(wjmfun_beam_area 300 600 300 14.3 360)
(defun wjmfun_beam_area (wjm_b wjm_h wjm_m wjm_fc wjm_fy)
(setq as (+ 30 12.5))
(setq wjm_m (* wjm_m 1000000))

;;; (setq as_mid (cal "wjm_m/wjm_fc/wjm_b/(wjm_h-as)/(wjm_h-as)"))
;;; (if (< as_mid 0.5)