[原创]：自动生成宗地图框

laoxie_1983

这是一个根据宗地大小计算比例自动加图框的小lisp.把有的地方修改一下就行了!顺便上传一个我们这边用的图框!

再请问一下大家怎样生成dwf格式的文件?

(defun c:zdt(/);出A4横框宗地图
  (setq bzjl 240)
  (print "请选择图形西南角")
  (setq point1 (getpoint ))
  (print "请选择图形东北角")
  (setq point2(getpoint))
  (setq jl (distance point1 point2))
  (setq bl1 (/ jl bzjl));绘图比例
  (setq bl (atof (rtos bl1 2 1)))
  (setq ppp (polar point1 (angle point1 point2) (/ (distance point1 point2) 2)));插入点坐标
  (setq blzb (polar (polar ppp 4.70795 (* 80.42 bl)) 3.13716 (* 11.13 bl)));比例插入点坐标
  (setq blz (rtos (* bl 1000) 2 5));确定比例
  (setq blsj (strcat "1:" blz))
  (command "osnap" "end")
  (command ".text" "m" blzb (* 3 bl) 0 blsj);标注比例
  (setq rqzb (polar (polar ppp 4.70795 (* 86.74 bl)) 6.27875 (* 90.48 bl)));日期插入点座标
  (setq rq (rtos (getvar "cdate") 2 0))
  (setq nf (substr rq 3 2))
  (setq yf (substr rq 5 2))
  (setq rz (substr rq 7 2))
  (setq xrq (strcat "日期："nf "-" yf "-" rz))
  (command ".text" "m" rqzb (* 3 bl) 0 xrq);标注日期
  (setq htzb (polar (polar ppp 4.70795 (* 86.74 bl)) 3.13875 (* 90.43 bl)));绘图员插入点座标
  (setq hty (strcat "绘图员:吴国栋"))
  (command ".text" "m" htzb (* 3 bl) 0 hty);标注绘图员
  
  (command "insert" "ha4" ppp bl bl "0");插入图框
  (setq cf (ssget "l"))
  (command "explode" cf)


)

llmin

可以用，但不知道能正确确定比例，固为比例会随选择的2点变化，而图面并不变化。

laoxie_1983

我又做了一个根据图形面积,再计算比例的lisp可是在图形形状很奇怪的时候就不能满足要求了!
想求出图形的重心在插入图块,在lisp里计算二重积分感觉好复杂!!

hhs1972

谢了

jwdjwd

支持分享啦！

新黎既

顶啊顶啊顶啊顶啊顶啊顶啊

xjfbeck

不错，先学习一下

Jerry541

能用就好，下载下来试试看看效果先。

hithappy

多谢分享

wangwei628

很实用的工具

新黎既

实用的工具

shaojingjing

学习了  谢谢!

w379106181

谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享谢谢分享

ming1789

感謝分享               

bbbxxxccclt

学习了  谢谢!