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

搜索资源列表

  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
    • 文件大小：3072
    • 提供者：lqt1975

  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
    • 文件大小：633
    • 提供者：skylovesx

  1. CAD DXF组码

  2. 组码 说明 -5 APP：persistent reactor 链表 -4 APP：条件运算符（仅用于 ssget） -3 APP：扩展数据 (XDATA) 标记（固定） -2 APP：图元名引用 （固定） -1 APP：图元名。每次打开图形时它都改变，且不被保存。（固定） 0 表示图元类型的文字字符串（固定） 1 图元的主要文字值 2 名称（属性标记、块名称等） 39145 其他的文字值或名称值 5 图元句柄。最多 16 位十六进制数字的文字字符串（固定） 6 线型名（固定） 7 文字样式名

  3. 所属分类：C#

    • 发布日期：2012-03-19
    • 文件大小：50176
    • 提供者：qk911212

  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
    • 文件大小：1024
    • 提供者：han7359

  1. 将wkai的最短路径由经典改为A星算法

  2. ;;时间计算 (defun z_timer (/ stime h m s) (if (not zhf_time_dot) (setq zhf_time_dot (getvar "date") h nil ) (progn (setq stime (getvar "date")) (setq stime (- stime zhf_time_dot)) (setq stime (* 86400.0 (- stime (fix stime)))) (setq h (fix (/ stime 3600

  3. 所属分类：其它

    • 发布日期：2009-04-06
    • 文件大小：9216
    • 提供者：zhang8755

  1. 数字计算tadd.rar

  2. 数字计算tadd.rar (defun C:tadd ( / sa k ss str yusf n shzi h hh) (princ "\n 选择所有文字:") (setq ss (ssget '((0 . "text"))) str (getstring "\n 输入四则运算及数值:") yusf (substr str 1 1) shzi (atof (substr str 2)) n (sslength ss) k 0 ) (while (< k n) (setq names (

  3. 所属分类：C

    • 发布日期：2009-04-26
    • 文件大小：470
    • 提供者：lrd0265

  1. CAD lisp程序

  2. 超级详细 (defun *error*(st) (if (and (/= st "Function cancelled") (/= st "quit / exit abort") ) (princ (strcat "错误: " st)) ) (setq *error* old_err) (princ) ) (defun sort (l / lt ltem vmax vmin l1 l2 l3 lt0 ltem0 ltem1 l30 vmax0 vmin0 l10 l20) (setq ltem

  3. 所属分类：电信

    • 发布日期：2018-06-04
    • 文件大小：625664
    • 提供者：qq_34985383

  1. LISP ssget 函数使用大全整理

  2. LISP ssget 函数使用大全整理，涵盖该函数使用的各个方面

  3. 所属分类：其它

    • 发布日期：2018-07-02
    • 文件大小：7168
    • 提供者：pengtao779

  1. SSGET用法.docx

  2. 学习 AutoLISP 是非常容易的,对初学者而言,即使没有学习过任何的程序语言, 都能很快的上手,写出精彩漂亮的 AutoLISP 程序! 语法简单 不用特殊的变量宣告,非常富有弹性,比起其它的程序语言,它的语 法可说是非常简单而有其独特的风格! 功能函数强 大 除一般性的功能函数外,又拥有为数不少控制配合 AutoCAD 的特 殊函数,再加上 AutoLISP 可直接呼叫执行所有 AutoCAD 的指令, 以及掌握运用所有的 AutoCAD 系统变量,功能之强大令人欣喜不 已! 撰写的环境

  3. 所属分类：互联网

    • 发布日期：2020-11-24
    • 文件大小：16384
    • 提供者：qazw124