明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

分享 打开指定路径
bloodtempt 2019-5-29 19:22
(defun c:bb() (command "start" "E:\\LQS" )(princ)) (defun c:bb ()(command "shell"(strcat "start " "E:\\LQS"))(princ)) (defun c:bb() (startapp "explorer.exe" "E:\\LQS")(princ)) (defun c:bb()(vl-load-com)(vlax-invoke (vla-GetInterfaceObject (vlax-get-acad-object) "WScript.S ...
25 次阅读|0 个评论 热度 1
分享 去除dwg文件右键发布DWF并通过电子邮件发送菜单
1993063 2019-5-14 15:25
Windows Registry Editor Version 5.00 以上存为注册表.REG文件并导入 存为bat文件格式并双击 reg delete "HKLM\SOFTWARE\Classes\*\shellex\ContextMenuHandlers\AcShellExtension.AcContextMenuHandler" /f
2 次阅读|0 个评论
分享 显示CAD对话框,并且只显示索引颜色
xgr 2019-2-16 13:24
显示CAD对话框,并且只显示索引颜色
Kean专题(9)—Object_Properties 显示CAD颜色对话框 http://bbs.mjtd.com/forum.php?mod=viewthreadtid=77587extra=highlight=Transparencypage=2 如果只显示索引颜色的话,需做下列修改: Autodesk.AutoCAD.Windows.ColorDialog cd = new Autodesk.AutoCAD.Windows.ColorDialo ...
104 次阅读|0 个评论
分享 CHM不能搜索
evayleung 2019-1-13 00:24
regsvr32 hhctrl.ocx regsvr32 itss.dll regsvr32 itircl.dll
33 次阅读|0 个评论
分享 CAD表格或块属性与Excel的互传工具
xazhji 2019-1-7 11:57
今天为大家带来一款CAD表格或块属性输出到Excel的工具,也可以在Excel中修改后,更新CAD相关内容。CAD与Excel互联,让修改变得更容易! 由于无法上传附件,请在 xazhji.ys168.com 中下载或联系 QQ:461202580,想尝试内测最新更多工具,加群:283014818
749 次阅读|1 个评论 热度 1
分享 高版本CAD 选择的对象超过了设置指定数目的对象时,不显示夹点--解决办法!!!
wayne_myles 2018-12-8 06:33
选择的对象超过了设置指定数目的对象时,将不显示夹点。需要RE一下, 或者将GRIPOBJLIMIT设置为0,永远显示夹点。
636 次阅读|0 个评论 热度 2
分享 距离高程计算下一点坐标
13648893846 2018-10-29 22:12
;; 距离高程计算下一点坐标 ;; (LC:Pt2YZ1 pt dx h) ;; BY 老仓测绘上班记 ;;;(LC:Pt2XY1 pt dx (- h (caddr pt))) ;;;(LC:Pt2YZ1 点 距离增量 计算点标高 横向比例 纵向比例) ;;;pt点必须有Z值 (defun LC:Pt2YZ1 (PT DX H HXBL ZXBL) (mapcar '(lambda (x y) (+ x y)) pt (list (* dx (/ 1000.0 HXBL)) ))(* ...
654 次阅读|0 个评论
分享 读取纬地原始地貌数据转换成点表
13648893846 2018-10-25 23:12
;; 读取纬地原始地貌数据转换成点表 ;; (LC:Make-LWPOLYLINE (LC:read-Weft-pts lst (setq pt (getpoint)) (setq hxbl 1000.0) (setq zxbl 1000.0))) ;; BY 老仓测绘上班记 ;;;(setq txt (try-read-txt WeftFILEpath)) ;;; (if (= (car txt) "HINTCAD5.83_HDM_SHUJU") ;;; (setq txt (gxl-removeN ...
614 次阅读|0 个评论
分享 二分法根据面积画线,可用于断面图计量人员使用
13648893846 2018-10-20 21:47
;; pline,lwpline点坐标表 By 无痕 ;; (LC:WH-vxs (car (entsel))),返回三维点坐标 (defun LC:WH-vxs (e / i v lst) (setq i -1) (while (setq v (vlax-curve-getpointatparam e (setq i (1+ i)))) (setq lst (cons v lst)) ) (reverse ls ...
630 次阅读|0 个评论 热度 2
分享 断面数据点表生成断面清表面积
13648893846 2018-10-14 22:12
;; 断面数据点表生成断面清表面积 ;; (LC:Clear-table-area ptlst1 ptlst2 qbhd) ;; BY 老仓测绘上班记 ;;;(setq ptlst1 (LC:WH-vxs (car (entsel"\n 请选择原始地貌线:")))) ;;;(setq ptlst2 (LC:WH-vxs (car (entsel"\n 请选择设计线:")))) ;;;(LC:Make-LWPOLYLINE '((185.938 88.6237 0.0) (201.505 75.1854 0.0) (222 ...
618 次阅读|0 个评论 热度 1

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2019-6-18 06:37 , Processed in 0.047759 second(s), 12 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

返回顶部