[推荐]实体坐标标注程序

楼主^#

更多发布于：2004-07-12 13:16

下面是本人写的一段小程序，保证可以运行，只是个别机子上可能要加以修改－－有关字体的地方！
;贾氏坐标注记程序；适合各种实体！！！各位可以稍加修改后用于，实体坐标存储、点号标注等 (defun C:zJ() (setvar "cmdecho" 0) (setvar "osmode" 0) (COMMAND "-STYLE" "TTST" "SIMKAI.TTF" 0 0.9 0 "N" "N""")
 (setq SC (GETREAL "请输入标注字高<1.0>:")) (if (= sc nil) (setq sc 1) ) (setq LABLE (entget(car (entsel "请选择要标注的实体:")))) (command "color" 5"") (while (SETQ la1 (assoc '10 LABLE))
 (SETQ la (CDR la1)) (SETQ JJX (rtos (cadr la) 2 3)) (SETQ JJX (strcat "X=" JJX)) (SETQ JJY (rtos (car la) 2 3)) (SETQ JJY (strcat "Y=" JJY)) 　　　　　;求标注文字的最大长度 (setq lenx (* (+ (strlen jjx) 1) sc)) (setq leny (* (+ (strlen jjy) 1) sc)) (if (< lenx leny) (setq lenx leny) ) 　　　　　;求标注线水平段的长度 (setq lenx (* lenx 0.65)) (setq lb (list (+ (car la) (* 2 sc)) (+ (cadr la) (* 2 sc)))) (setq lc (list (+ (car lb) lenx) (cadr lb))) (COMMAND "PLINE" la lb lc"") (command "Text" "j" "bl" (list (+ (car lb) (* 0.5 sc)) (+ (cadr lb) (* 0.4 sc))) (* 1 sc) 0 JJX) (command "Text" "j" "tl" (list (+ (car lb) (* 0.5 sc)) (- (cadr lb) (* 0.5 sc))) (* 1 sc) 0 JJy) (setq LABLE (CDR (MEMBER LA1 LABLE) )) ) (command "color" "BYLAYER" "") )<img src="images/post/smile/dvbbs/em02.gif" />

[此贴子已经被作者于2005-6-7 21:52:51编辑过]

喜欢0 评分0

举报回复

gis

管理员

注册日期2003-07-16
发帖数15951
QQ
铜币25345枚
威望15368点
贡献值0点
银元0个

加关注写私信

1楼^#

发布于：2004-07-12 14:41

GIS麦田守望者，期待与您交流。

举报回复喜欢评分

bluewood_cn 路人甲注册日期2004-04-19 发帖数118 QQ 铜币551枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2004-08-14 09:21 <P>哈哈。 1楼的兄弟，不要这么极端嘛，我觉得靠自己的技术，赚点钱，还是很正常的。</P><P>你说呢？每个人都有每个人的实际情况。</P><P>再说，我觉得如果可以很好的提高工作效率，200块是要少了，2000都不多。：）</P><P>个人观点，仅供参考</P>
	举报回复(0) 喜欢(0) 评分

saltlight 路人甲注册日期2003-08-01 发帖数84 QQ 铜币353枚威望0点贡献值0点银元0个加关注写私信	3楼^# 发布于：2004-08-22 16:37 <img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em03.gif" />只要东西好，价格合适我还是愿意买
	举报回复(0) 喜欢(0) 评分

kkkk2004 路人甲注册日期2004-08-13 发帖数103 QQ 铜币441枚威望0点贡献值0点银元0个加关注写私信	4楼^# 发布于：2004-08-26 09:13 <img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />
	举报回复(0) 喜欢(0) 评分

sztk2001 路人甲注册日期2004-07-08 发帖数244 QQ 铜币2枚威望0点贡献值0点银元0个加关注写私信	5楼^# 发布于：2004-08-28 09:20 不错，发扬你的无私精神<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em01.gif" />
	举报回复(0) 喜欢(0) 评分

jlzxf 路人甲注册日期2004-02-17 发帖数587 QQ 铜币1238枚威望0点贡献值0点银元0个加关注写私信	6楼^# 发布于：2004-09-01 09:14 <img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />
	举报回复(0) 喜欢(0) 评分

lym0813 路人甲注册日期2004-06-14 发帖数284 QQ 铜币8枚威望0点贡献值0点银元0个加关注写私信	7楼^# 发布于：2004-09-01 11:45 <img src="images/post/smile/dvbbs/em02.gif" />
	举报回复(0) 喜欢(0) 评分

您需要登录后才可以回帖，登录或者注册

[推荐]实体坐标标注程序

最新喜欢：