日志
- 分享 ks字符串表达式计算求值.lsp
- (vl-load-com) ;来源 ;http://bbs.mjtd.com/forum.php?mod=viewthreadtid=107935highlight=cal%2B%BC%C6%CB%E3 ;计算数学表达式,返回实数 ;这个无法在64bit的CAD上使用,为什么? (defun MyCal (express / STR wscript) (setq str (strcat "dim ret \n ret=" express)) (setq wscript (vl ...
- 分享 [求助]有无办法把SOLID 转变为直线?[求助]有无办法把hatch 转变为直线?
- 用过滤器选出所有的Solid 用Region命令将其转成Region 用Union命令将其合并成单个Region（可以有效地消除Region之间的重合边） 用Explode命令炸开Region，（炸两次，粉碎成LINE） 至此已经基本达到楼主目的~~ 当初我的操作最后一步是用PEDIT的M选项，选中炸开的LINE，最后生成原先所有Solid的外轮廓PLINE。 ...
- 分享 DCL2LSP和LSP2DCL（源码）
- http://bbs.mjtd.com/thread-92336-1-1.html (defun c:dcl2lsp ( / fname1 fn1 fname2 fn2 k fn1l fn2l ) (setq fname1 (getfiled "Select DCL file" "" "dcl" 16)) (setq fn1 (open fname1 "r")) (setq fname2 (getfiled "File to save" "" "lsp" 1)) (setq fn2 (open fname2 "w")) (whi ...