注册会员 | 设为首页 | 加入收藏夹
您好，欢迎光临本网站！[请登录] ！[注册会员]！  

搜索资源列表

  1. CAD二次开发技术在各工程领域的应用

  2. CAD二次开发 绘制螺纹 (defun c:luowen() (setq d(getreal “螺纹公称直径=”)) (setq r(/d 2)) (setq tt(getreal “螺距=”)) (setq l(getreal “螺纹长度=”)) (setq p0(getpoint “指定基点”)) (setq p01(list (n th 0 p0) (n th 1 p0) (-1(/tt 1.155)))) (setq p012(list (n th 0 p0) (n th 1 p0)1

  3. 所属分类：C

    • 发布日期：2010-06-20
    • 文件大小：94kb
    • 提供者：q344957696

  1. 让属性块的属性文字“复位”的lsp.LSP

  2. cad 属性文字 还原 (defun c:initatt () (while (setq ss (ssget '((0 . "insert")))) (setq n (sslength ss)) (repeat n (gxl-blk-att2init (ssname ss (setq n (1- n)))) ) ) (princ) )

  3. 所属分类：电子政务

    • 发布日期：2011-05-18
    • 文件大小：3kb
    • 提供者：lqt1975

  1. 图层与劳动成果保护 dwg cad

  2. 图层与劳动成果保护 (defun c:tchb () ;;;用新的组码值替换原值 (defun dxfupd (ent dxfcode newval / elst newlst) (setq elst (entget ent)) (setq newlst (append elst (list (cons dxfcode newval)))) (entmod newlst) (entupd ent) )

  3. 所属分类：其它

    • 发布日期：2011-08-22
    • 文件大小：2kb
    • 提供者：lxp2007

  1. 筑原CAD病毒专杀

  2. .处理病毒 1.acad.lsp 很多以(defun s::startup (/ old_cmd 等开头的lsp病毒代码 中毒后,打开文件自动建立acad.lsp文件等. 2.acaddoc.lsp 以 (setq flagx t) (setq bz "(setq flagx t)")开头lsp代码 中毒后acad.mnl 及cad的support下的所有lsp文件某位都加上此段病毒代码.天正等软件无法启动. 3.acad.fas 版本1 有病毒样本,完美处理. 1.病毒在启动CAD时会弹出一

  3. 所属分类：系统安全

    • 发布日期：2011-10-19
    • 文件大小：745kb
    • 提供者：tangongyi

  1. 把面积写在图上

  2. ;; write area value of a close polygon to drawing (DEFUN C:EA(/ OLDOS PT STA QAREA) ;; (setq olderr *error*) (setq *error* myerr) (SETVAR "CMDECHO" 0) (SETQ OLDOS (GETVAR "OSMODE")) ;; (SETVAR "OSMODE" 0) (SETQ STA (CAR (ENTSEL))) (COMMAND "AREA" "E

  3. 所属分类：其它

    • 发布日期：2011-11-01
    • 文件大小：519byte
    • 提供者：pgftm

  1. 自动计算面积

  2. 自动计算面积 cad二次开发 lisp ;get area (defun C:GETAREA ( / ss e ent lyname ls llist) (setq ss (ssget)) (while ss (setq e (ssname ss 0) ent (entget e) ss (if (> (sslength ss) 1) (ssdel e ss) nil

  3. 所属分类：制造

    • 发布日期：2012-03-17
    • 文件大小：633byte
    • 提供者：skylovesx

  1. cad快速画弧

  2. (defun c:22 (/ YC R FC FH A RA B EB REB C EC REC RLA RLB FDA FDB FDC FDD RLD RLDA FRLDA FRLDD FFD RREB DEL XD DEL) (ETEND 300) (if (> UF_estimate 0) (progn (setq YC (getpoint "输入圆心:")) (setq R (getdist "\n 输入半径:")) (setq FC (getdist "\n 输入弧长:"))

  3. 所属分类：制造

    • 发布日期：2012-03-26
    • 文件大小：4kb
    • 提供者：zhxhzhxh

  1. Zebra shell Command Line Interface.pdf

  2. Zebra CLI Actual Zebra Command Skeleton Zebra shell Command DEFUN Macro ALIAS Macro Zebra shell Command Syntax Descr iption

  3. 所属分类：C

    • 发布日期：2012-11-16
    • 文件大小：23kb
    • 提供者：maojiabin

  1. CAD图形空间和模型空间的转换

  2. (Defun c:ti (/ tn) (setq tn (getvar "tilemode")) (if (= tn 1) (setvar "tilemode" 0) (setvar "tilemode" 1) ) (princ) )

  3. 所属分类：其它

    • 发布日期：2012-11-16
    • 文件大小：162byte
    • 提供者：yugarden511

  1. 测绘lisp注记面积

  2. 测绘面积(defun c:zmj() (setvar "cmdecho" 0) (setq zg(getvar "ltscale")) (setq zg1(* zg 3)) (command "layer" "m" "mj" "") (setq en(car (entsel))) (setq zmj1 0) (setq j 1) (while en (redraw en 3) (setq kk(command "area" "o" en)) (setq kk1(getvar "area" ))

  3. 所属分类：其它

    • 发布日期：2012-12-09
    • 文件大小：705byte
    • 提供者：han7359

  1. 测绘高程左右移位lisp语言应用

  2. ;将高程数值向右偏移 (defun c:gcyy() (setvar "cmdecho" 0) (setq zg1 (getvar "ltscale")) (setq ss(ssget)) (setq n 0) (repeat (sslength ss) (setq en (ssname ss n)) (setq endata(entget en)) (setq entext(cdr (assoc 0 endata))) (setq entc(cdr (assoc 8 endata))) (i

  3. 所属分类：其它

    • 发布日期：2012-12-09
    • 文件大小：1kb
    • 提供者：han7359

  1. autolisp程序设计及其应用教程第3章例程序

  2. 数组(defun allay2-1 (LL A / i j aij) (setq i -1 LLL nil ) (repeat (length ll); 按外层表，即按行数循环 (setq i (1+ i) j -1 ) (repeat (length (cadar LL)); 按第二层嵌套表，即按列数循环 (setq j (1+ j) aij (read (strcat a (itoa (1+ i)) (itoa (1+ j)))); 构造二维数组变量 ) (set aij (cadr (n

  3. 所属分类：Java

    • 发布日期：2013-03-01
    • 文件大小：494byte
    • 提供者：hdd1987

  1. 轴座设计绘图

  2. cad开发。零件图defun zzx (/ zzx_start vslide zzx_action check zzx_draw set_grp pick what start shitu l1 l2 h1 h2 d1 d2 d3 b1 b2 sca sca_no sca_list )

  3. 所属分类：其它

    • 发布日期：2013-05-06
    • 文件大小：7kb
    • 提供者：u010588138

  1. 坐标批量展块

  2. 自动按坐标展块 DEFUN C:ZK( / FN FI LL I0 II LE X Y ZC) (SETVAR "CMDECHO" 0) (SETVAR "OSMODE" 0);关闭捕捉 (SETQ FN (GETSTRING "请输入文件名: ")) (SETQ FI (OPEN FN "R"));打开文件 (COMMAND "_.UNDO" "_BE") (SETQ LL (READ-LINE FI)) (WHILE LL (SETQ I0 1 II 1 ZC (SUBSTR LL 1 1

  3. 所属分类：交通

    • 发布日期：2013-05-10
    • 文件大小：822byte
    • 提供者：xiaozhi123456

  1. AutoCAD VBA 零件表编辑程序

  2. 一组实用的AUTOCAD 零件表程序，实现类似于Excel操作，有利于减少工程师计算工作量。 一、将零件表工具.dvb文件复制到您的CAD安装文件夹下; 二、打开CAD文件下SUPPORT子文件夹下的ACAD2007.lsp（不同的版本不一样），将以下的代码复制到该文件中。 (defun S::STARTUP() (command "_VBALOAD" " 零件表工具.dvb") ) (defun c:pcal () (command "-VBARUN" "Thisdrawing.Main")

  3. 所属分类：VB

    • 发布日期：2013-07-11
    • 文件大小：160kb
    • 提供者：u011306555

  1. 河道断面绘制脚本

  2. 纵横段绘制，自动生成txt数据文件(defun c:qd() (if (null vlax-dump-object) (vl-load-com) ) ;;加载vlax扩展函数 (setq yn "y") (SETQ zj 0);;里程增量 (setq zy "-") (setq cs (getint "\n请输入里程初始值：")) (setq dmax (getint "\n请输入横断宽度")) (setq n 1) (setq k 0) (setq ys_wj1 (open "c://ys_

  3. 所属分类：其它

    • 发布日期：2013-12-28
    • 文件大小：1kb
    • 提供者：u013307262

  1. 纵断面绘制

  2. (defun c:qd() (setq yn "y") (SETQ zj 0) (setq cs (getint "\n请输入里程初始值：")) (setq n 1) (setq ys_wj1 (open "c://beitaipingz_wj1.txt" "a")) (write-line "桩号,x坐标,y坐标,高程" ys_wj1) (while (or (= yn "y")(= yn "")) (setq coord (getpoint "\n请输入您要插入的坐标:"))

  3. 所属分类：其它

    • 发布日期：2013-12-28
    • 文件大小：1008byte
    • 提供者：u013307262

  1. autolisp xrecord学习资料

  2. 用 Google 搜索 GetXRecordData，很多现成代码的 (defun dict-get (owner name / d) (cond ((not owner) (dict-get (namedobjdict) name)) ((= (type owner) 'str) (dict-get (dict-get (namedobjdict) owner) name)) ((= (type owner) 'ename) (dict-get (entget owner) name)) (

  3. 所属分类：其它

    • 发布日期：2014-02-10
    • 文件大小：87kb
    • 提供者：kematy

  1. 板钢筋计算程序

  2. 可以在CAD里面自动计算板钢筋 (defun C:gjjs (/ gjmj dist num) (setvar "cmdecho" 0) (PRINC " 板钢筋计算程序。")

  3. 所属分类：其它

    • 发布日期：2015-10-16
    • 文件大小：826byte
    • 提供者：sinat_32064691

  1. defun：定义带有参数模式匹配的clojure函数的宏，就像erlang或elixir-源码

  2. defun：定义带有参数模式匹配的clojure函数的宏，就像erlang或elixir

  3. 所属分类：其它

    • 发布日期：2021-02-01
    • 文件大小：12kb
    • 提供者：weixin_42108778
« 12 »