设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 这样的方格网如何编程绘制
返回列表 发新帖
查看: 2551|回复: 5

这样的方格网如何编程绘制

[复制链接]
jiangjun
发表于 2006-12-9 16:42 | 显示全部楼层 |阅读模式

这样的方格网如何用lisp编程绘制.

每个小框的大小可以设置  超出外框的自动不绘

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
回复

使用道具 举报

ZZXXQQ
发表于 2006-12-10 16:23 | 显示全部楼层

图下不来。

回复 支持 反对

使用道具 举报

jiangjun
 楼主| 发表于 2006-12-11 23:05 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
回复 支持 反对

使用道具 举报

jiangjun
 楼主| 发表于 2006-12-11 23:08 | 显示全部楼层

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
回复 支持 反对

使用道具 举报

ZZXXQQ
发表于 2006-12-13 09:37 | 显示全部楼层
简单方法的程序：
  2. (DEFUN C:TEST ()
  3. (SETVAR "CMDECHO" 0)
  4. (SETQ OLDOS (GETVAR "OSMODE")
  5.        OLDSP (GETVAR "SNAPBASE"))
  6. (IF (SETQ PB (GETPOINT "\nBase Point of right angle 选择直角基点 :"))
  7.   (IF (SETQ SS (ENTSEL "\nSelect a closed curve 选择封闭的曲线 :")) (PROGN
  8.    (SETQ EN (CAR SS))
  9.    (SETVAR "SNAPBASE" (REVERSE (CDR (REVERSE PB))))
  10.    (COMMAND "HATCH" "_USER" "0" "10" "Y" EN "")
  11.    (SETVAR "SNAPBASE" OLDSP)
  12.   ))
  13. )
  14. (SETVAR "OSMODE" OLDOS)
  15. (PRINC)
  16. )
复制代码
回复 支持 反对

使用道具 举报

jiangjun
 楼主| 发表于 2006-12-13 20:50 | 显示全部楼层

谢谢

回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-5-12 12:29 , Processed in 0.157989 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表